هارون
عدد الرسائل : 54
sms : <!--- MySMS By AlBa7ar Semauae.com --><form method="POST" action="--WEBBOT-SELF--"> <!--webbot bot="SaveResults" u-file="fpweb:///_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" --><fieldset style="padding: 2; width:208; height:104"> <legend><b>My SMS</b></legend> <marquee onmouseover="this.stop()" onmouseout="this.start()" direction="up" scrolldelay="2" scrollamount="1" style="text-align: center; font-family: Tahoma; " height="78">$post[field5]</marquee></fieldset></form><!--- MySMS By AlBa7ar Semauae.com -->
تاريخ التسجيل : 14/02/2008
 | موضوع: أكواد فجول بيسك18  الخميس مارس 06, 2008 11:07 am | |
| اعداد الطابعة
Dim X As Integer
Private Sub Command2_Click()
Printer.Print “October; War”
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
الاصوات في فيجوال بيسك
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Sub Command1_Click()
res = sndPlaySound(App.Path & "\97", SND_ASYNC)
'لتشغيل ملف ويعود التنفيذ للبرنامج بمجرد بدء تشغيل ملف الصوت
End Sub
Private Sub Command2_Click()
res = sndPlaySound(App.Path & "\97", SND_SYNC)
'تشغيل ملف صوت ولا يعود التحكم للبرنامج إلا بعد الإنتهاء من تشغيل ملف الصوت بالكامل
End Sub
Private Sub Command3_Click()
rse = sndPlaySound(App.Path & "\97", SND_LOOP Or SND_ASYNC)
'ولتشغيل الملف بشكل تكراري
End Sub
Private Sub Command4_Click()
res = sndPlaySound(App.Path & "\97.wav", SND_NOSTOP Or SND_ASYNC)
'ولتشغيل الملف بشرط أنه لا يكون هناك ملف صوتي آخر قيد التشغيل
End Sub
Private Sub Form_Load()
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
الدخول للانترنت عن طريق الكود
'modeul
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const conSwN
'command1
Private Sub Command1_Click()
ShellExecute hwnd, "open", "http://arafa.4mg.com/ash.htm", vbNullString, vbNullString, conSwNormal
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
الكود الذي يقوم بقراءة رقم الهاردسك
'استخدام المكتبة Microsoft Scripting Runtime
Private Sub Command1_Click()
Dim obj_FSO As Object, obj_Drive As Object
Set obj_FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Drive = obj_FSO.GetDrive("c:\")
MsgBox obj_Drive.SerialNumber
Set obj_FSO = Nothing
Set obj_Drive = Nothing
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
النسخ الاحتياطي للبيانات
'لعمل الفولدر
Private Sub CMDmak_Click()
'MkDir "D:\BACKUP"
'MkDir "D:\BACKUP\SITRAWI"
End Sub
'لنسخ الملف
Private Sub CMDBAK_Click()
SOURCE = "D:\hus\Aig.bmp"
dESTN = "D:\BACKUP\SITRAWI\AIG.BMp"
FileCopy SOURCE, dESTN
End Sub | |
|
