amozesh KARBURD API DAR VB6

by **mr.pitza@n.c** Sat Apr 12, 2014 3:39 pm

IN THE NAME OF GOD

HI BTM

TAVABE API TAVABE DAKHELI KHUD WINDOWS MIBASHAND
KE MA MITUNIM KARAII KE TU WINDOWS GHABE ANJAME RU TU
VB6 ANJAM BDIM
RUTIN HAYE API WINDOWS DAR FILE HAII GHARAR DARE BE NAME DLL
(DYNAMIC LINK LIBRARY) QARAR DARAND IN FILE HA MOGHE NASB WINDOWS DAR PC COPY MISHAN BARA HAMIN TU AKSAR PC HA VOJOD DARAN
AZ JOMLE DLL HAYE MOHEM USER32.DLL & KERNEL32.DLL MIBASHAND
CHEGHaD NEVESHTAM

BARAYE DARK BEHTAR API AMALI KAR KONIM BEYTARE
KHUB VB6 RA BAZ KONID VA YE PROJE STANDARD BIARID HALA
YE BUTTON BEZARID RUSH 2 BAR CLICK KONID

HALA TU GHESMAT GENERAL COD ZIRU BEZARID

Code:
CODE:

Code:: Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

[size=undefined]

FARAKHANI KARDIM HALA TU QESMAT BUTOM

Code:
CODE:
[/size]

Code:: Private Sub Command1_Click() End Sub

[size=undefined]

DAR BEYNESH IN CODO BEZARID
Code:
CODE:
[/size]

Code:: mciSendString "Set CDAudio Door Open", 0, 0, 0

[size=undefined]
HALA YE BUTOM DG BEZARID
TUSH COD ZIRU BENVISID

Code:
CODE:
[/size]

Code:: Private Sub Command2_Click [align=left]MciSendString "Set CDAudio Door Closed" ,0 ,0 ,0[/align] End Sub

[size=undefined]

hala softu run konid va natije ru bebinid

omidvaram tuzihatam kamel bashe baz age soali dashtin begid
javab midam

***copy bedune zekre manba fpeygard qanuni dare

manba:
www.badbuzz-team.ir amozesh KARBURD API DAR VB6 Emoticon_sweat

amozesh KARBURD API DAR VB6 Emoticon_sweat

[/size]

ta amozesh haye bad khuda poshtu panahetun