هارون
عدد الرسائل : 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
 | موضوع: أكواد فجول بيسك1  الخميس مارس 06, 2008 10:42 am | |
| لمعرفة رقم المنفذ الخاص بالمودم بدون تدخل المستخدم وتهيئته لإنتظار مكالمه
Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
' لوب للتشييك على عشرة منافذ وإستخراج رقم منفذ المودوم الصحيح
For i = 1 To 10
MSComm1.CommPort = i
On Error GoTo N
MSComm1.PortOpen = True
N:
If MSComm1.PortOpen = True Then
Exit For
End If
Next
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent Then
MsgBox " وصول إتصال لك "
End If
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
لإخفاء البرنامج من قائمة إنهاء المهام
'Module File هذا الجزء في ملف برمجي
Public Declare Function GetCurrentProcessId _
Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess _
Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess _
Lib "kernel32"
Private Sub Command1_Click()
Dim pid As Long
Dim reserv As Long
' لإخفاء البرنامج من قائمة إنهاء المهام
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Private Sub Command2_Click()
Dim pid As Long
Dim reserv As Long
'لإعادة البرنامج في قائمة إنهاء المهام
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, _
RSP_UNREGISTER_SERVICE)
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
معرفة ما إذا كان الرقم زوجي أو فردي
Function isEven(n As Integer) As Boolean
isEven = True
If n And 1 Then isEven = False
End Function
Private Sub Command1_Click()
MsgBox isEven(4)
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
منع المستخدم من استخدام المسافة في صندوق النص
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
اذا اردت تجميد الويندوز
لن تستطيع العمل مرة أخرى الا بإعادة تشغيل الجهاز
Public Declare Function SetParent Lib "user32" (ByVal _
hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
SetParent Me, Me
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
لتشغيل حافظة الشاشة للويندوز
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
'لبدء تشغيل حافظة شاشة الويندوز
Call SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
لتحديد دقة عرض الشاشة
Private Sub Command1_Click()
Dim intWidth As Integer
Dim intHeight As Integer
intWidth = Screen.Width \ Screen.TwipsPerPixelX
intHeight = Screen.Height \ Screen.TwipsPerPixelY
MsgBox "Screen Resolution:" + Str$(intWidth) + " x" + Str$(intHeight)
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
لقراءة سطر معين من ملف
Public Function readLine(ByRef strFilePath As String, ByRef nLine _
As Integer) As String
Dim NextLine As String
Dim n As Integer
FileNum = FreeFile
Open strFilePath For Input As FileNum
Do Until EOF(FileNum)
Line Input #FileNum, NextLine
n = n + 1
If n = nLine Then readLine = NextLine
Loop
Close
End Function
Private Sub Command1_Click()
'autoexec.bat لقراءة السطر الثالث من الملف
Text1.Text = readLine("c:\autoexec.bat", 3)
End Sub
'أضف Text1 و Command1 ثم أضف الكود التالي | |
|
