[alakimalaki]

درود

این تاپیک و راه اندازی کردم هرکدوم از دوستان ترفندی چیزی بلدن بنویسن ( با صداقت )

---

با این سورس کد میتونید آیپی واقعی (واقعییییییییی یعنی آیپی Public , نه آیپی شبکه ) رو بدست بیارید خیلی بدرد تروجان نویسا میخوره.

---

[alakimalaki]

با ترفند زیر هر چنتا فایلی که بخواید رو میتونید با vb به هم وصل کنید ( عکس , موزیک , ............ )

نه ویروس کش میشناسه نه سخته فقط یه خط کد !

[alakimalaki]

برای تست اتصال اینترنت بجای اینکه از api استفاده کنیم میشه از سورس کوچیک پایین استفاده کرد

If Me.Winsock1.LocalIP = "127.0.0.1" Then

MsgBox "NO Connect"

Else

MsgBox "OK Connect"

End If

[alakimalaki]

اینم کیلیدهایی که میشه با با دستور Sendkeys انجام داد

کد پی‌اچ‌پی:

{!}



!






{#}



#






{+}



+






{^}



^






{{}



{






{}}



}






{SPACE}



SPACE






{ENTER}



ENTER key on the
main keyboard






{ALT}



ALT






{BACKSPACE}
or {BS}



BACKSPACE






{DELETE}
or {DEL}



DELETE






{UP}



Up arrow






{DOWN}



Down arrow






{LEFT}



Left arrow






{RIGHT}



Right arrow






{HOME}



HOME






{END}



END






{ESCAPE}
or {ESC}



ESCAPE






{INSERT}
or {INS}



INS






{PGUP}



PGUP






{PGDN}



PGDN






{F1}
- {F12}



Function keys






{TAB}



TAB






{PRINTSCREEN}



PRINTSCR






{LWIN}



Left Windows key






{RWIN}



Right Windows key






{NUMLOCK}



NUMLOCK






{CAPSLOCK}



CAPSLOCK






{SCROLLLOCK}



SCROLLLOCK






{BREAK}



for Ctrl+Break
processing






{PAUSE}



PAUSE






{NUMPAD0}
- {NUMPAD9}



Numpad digits






{NUMPADMULT}



Numpad Multiply






{NUMPADADD}



Numpad Add






{NUMPADSUB}



Numpad Subtract






{NUMPADDIV}



Numpad Divide






{NUMPADDOT}



Numpad period






{NUMPADENTER}



Enter key on the
numpad






{APPSKEY}



Windows App key






{LALT}



Left ALT key






{RALT}



Right ALT key






{LCTRL}



Left CTRL key






{RCTRL}



Right CTRL key






{LSHIFT}



Left Shift key






{RSHIFT}



Right Shift key






{SLEEP}



Computer SLEEP key






{ALTDOWN}



Holds the ALT key
down until {ALTUP} is sent






{SHIFTDOWN}



Holds the SHIFT key
down until {SHIFTUP} is sent






{CTRLDOWN}



Holds the CTRL key
down until {CTRLUP} is sent






{LWINDOWN}



Holds the left
Windows key down until {LWINUP} is sent






{RWINDOWN}



Holds the right
Windows key down until {RWINUP} is sent






{ASC
nnnn}



Send the ALT+nnnn
key combination

















{BROWSER_BACK}



2000/XP Only:
Select the browser "back" button






{BROWSER_FORWARD}



2000/XP Only:
Select the browser "forward" button






{BROWSER_REFRESH}



2000/XP Only:
Select the browser "refresh" button






{BROWSER_STOP}



2000/XP Only:
Select the browser "stop" button






{BROWSER_SEARCH}



2000/XP Only:
Select the browser "search" button






{BROWSER_FAVORITES}



2000/XP Only:
Select the browser "favorites" button






{BROWSER_HOME}



2000/XP Only:
Launch the browser and go to the home page






{VOLUME_MUTE}



2000/XP Only: Mute
the volume






{VOLUME_DOWN}



2000/XP Only:
Reduce the volume






{VOLUME_UP}



2000/XP Only:
Increase the volume






{MEDIA_NEXT}



2000/XP Only:
Select next track in media player






{MEDIA_PREV}



2000/XP Only:
Select previous track in media player






{MEDIA_STOP}



2000/XP Only: Stop
media player






{MEDIA_PLAY_PAUSE}



2000/XP Only:
Play/pause media player






{LAUNCH_MAIL}



2000/XP Only:
Launch the email application






{LAUNCH_MEDIA}



2000/XP Only:
Launch media player






{LAUNCH_APP1}



2000/XP Only:
Launch user app1






{LAUNCH_APP2}



2000/XP Only:
Launch user app2 


[alakimalaki]

با دستور environ میشه خیلی از دایرکتوری های ویندوز رو بدست اورد

مثلا با دستور environ ("windir") میشه میسر نصب ویندوز رو گرفت

من براتون مسیرایی که میشه با environ گرفت میزارم

ALLUSERSPROFILE=C:\Documents and Settings\All Users
APPDATA=C:\Documents and Settings\lafeverc\Application Data
CommonProgramFiles=C:\Program Files\Common Files
COMPUTERNAME=LAFEVERC
ComSpec=C:\WINDOWS\system32\cmd.exe
HOMEDRIVE=C:
HOMEPATH=\Documents and Settings\lafeverc
INCLUDE=D:\Program Files\Microsoft Visual Studio .NET\FrameworkSDK\includeLIB=D:\Program Files\Microsoft Visual Studio .NET\FrameworkSDK\LibLOGONSERVER=\\CG1BDC-7VH2H11
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Program Files\Microsoft SQL Server\80\Tools\BINN;C:\Program Files\Common Files\Adaptec Shared\System
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 11 Stepping 1, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=0b01
ProgramFiles=C:\Program Files
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:\WINDOWS
TEMP=C:\DOCUME~1\lafeverc\LOCALS~1\Temp
TMP=C:\DOCUME~1\lafeverc\LOCALS~1\Temp
ULTRAMON_LANGDIR=C:\Program Files\UltraMon\Resources\en
USERDOMAIN=CG1
USERNAME=lafeverc
USERPROFILE=C:\Documents and Settings\lafeverc
VSCOMNTOOLS="D:\Program Files\Microsoft Visual Studio .NET\Common7\Tools\"

windir=C:\WINDOWS

[alakimalaki]

یه روش برای رمز گزاری کاراکتر های vb

مثلا میخوایم بنویسیم PARSI

برای حر حرف یه متغیر تعریف میکنیم

dim P as sting
P=P
dim A as string
A=A
dim R as string
R=R
dim S as string
S=S
dim I as string
I=I

msgbox P & A & R & S & I