Parsi Coders
تایپیک ترفندهای ویژوال بیسیک - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: تایپیک ترفندهای ویژوال بیسیک (/showthread.php?tid=2721)



تایپیک ترفندهای ویژوال بیسیک - alakimalaki - 08-28-2012

درود

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

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




RE: تایپیک ترفندهای ویژوال بیسیک - alakimalaki - 08-28-2012

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

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


تست اتصال اینترنت - alakimalaki - 08-29-2012

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

If Me.Winsock1.LocalIP = "127.0.0.1" Then
MsgBox "NO Connect"
Else
MsgBox "OK Connect"
End If



sendkeys - alakimalaki - 08-31-2012

اینم کیلیدهایی که میشه با با دستور 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 
{ALTUPis sent






{SHIFTDOWN}



Holds the SHIFT key
down until 
{SHIFTUPis sent






{CTRLDOWN}



Holds the CTRL key
down until 
{CTRLUPis sent






{LWINDOWN}



Holds the left
Windows key down until 
{LWINUPis sent






{RWINDOWN}



Holds the right
Windows key down until 
{RWINUPis 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 OnlyMute
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 OnlyStop
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 



environ - alakimalaki - 08-31-2012

با دستور 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



RE: تایپیک ترفندهای ویژوال بیسیک - alakimalaki - 09-29-2012

یه روش برای رمز گزاری کاراکتر های 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