تو پست های قبلی سورسشو گزاشتم ... مربوط به قرار دادن برنامه در استارت آپ...
Printable View
تو پست های قبلی سورسشو گزاشتم ... مربوط به قرار دادن برنامه در استارت آپ...
internet status
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=51DZ4E43
Mount Drive
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=GQFFXNVC
Obtain Windows Informations
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=054LIN47
Raining Letters
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=1ZOV55NF
Remote Management Kit
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=9PMNBI7P
RichTextBox Highlighting using API (fast & simple) - change text background color
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=XH5TRHF7
Simple VB commands
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=8KKZ0QV4
بدست آوردن اطلاعات کارت صدا
کد:Private Declare Function waveOutGetDevCaps Lib "winmm.dll" Alias "waveOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As WAVEOUTCAPS, ByVal uSize As Long) As Long
Private Const MAXPNAMELEN = 32
Private Type WAVEOUTCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * MAXPNAMELEN
dwFormats As Long
wChannels As Integer
dwSupport As Long
End Type
Private Sub Command1_Click()
Dim x As WAVEOUTCAPS
waveOutGetDevCaps 0, x, Len(x)
Print "Sound Card - " & x.szPname
Print "Sound Formats - " & x.dwFormats
Print "Sound Support - " & x.dwSupport
Print "Sound DriverVersion - " & x.vDriverVersion
Print "Sound Channels - " & x.wChannels
Print "Sound Mid - " & x.wMid
Print "Sound Pid - " & x.wPid
End Sub
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.megaupload.com/?d=GTWB0RTG