هارون
عدد الرسائل : 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
 | موضوع: أكواد فجول بيسك16  الخميس مارس 06, 2008 11:03 am | |
| أسماء المجلدات الرئيسية والفرعية في قائمة
'Declarations
Sub Listdir(path)
Dim d(1000)
Dir1.path = path
For lop = 0 To Dir1.ListCount - 1
d(cnt) = Dir1.List(lop)
cnt = cnt + 1
Next lop
For lop = 0 To cnt - 1
List1.AddItem d(lop)
cur_depth = cur_depth + 1
listdir d(lop)
Next lop
cur_depth = curr_depth - 1
End Sub
'ضع هذا في الفورم
Listdir(اسم المجلد)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
كلام متحرك في TITLEBAR
Private Sub Timer1_Timer()
On Error Resume Next
If Val(Timer1.Tag) < Val(Timer1.Tag) - 1 Then Timer1.Tag = 0
Me.Caption = Right(Text1.Text, Len(Text1.Text) - Val(Timer1.Tag))
Timer1.Tag = Val(Timer1.Tag) + 1
If Me.Caption = "" Then
If Val(Timer1.Tag) > Val(Timer1.Tag) - 1 Then Timer1.Tag = 0
Me.Caption = Left(Text1.Text, Len(Text1.Text) - Val(Timer1.Tag))
Timer1.Tag = Val(Timer1.Tag) + 1
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
استقبال مكالمة هاتفية
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
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
تلاشي النوافذ
'ضع هذه الأكواد داخل اداة timer وأجعل الخاصية interval ب1
If Me.Height > 405 Then
Me.Height = Me.Height - 200
Me.Top = Me.Top + 100
Else
Form1.Visible = True
Unload Me
End If
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
كيف أقرأ أي كلمة تكون تحت موقع الفأرة
'أضف أداة Timer ثم استخدم الشيفرة التالية
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, ByVal lParam As Any) _
As Long
Private Declare Function SendMessageByString Lib _
"user32" Alias "SendMessageA" (ByVal hwnd As _
Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib _
"user32" (ByVal xPoint As Long, ByVal yPoint _
As Long) As Long
Private Function WinText(hwnd As Long) As String
Dim Trm&, Buf$
Trm = SendMessage(hwnd, 14, 0&, 0&)
Buf = String(Trm, " ")
SendMessageByString hwnd, 13, Trm + 1, Buf
WinText = Buf
End Function
Private Sub Form_Load()
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
Dim lng_hWnd&, pt As POINTAPI
GetCursorPos pt
lng_hWnd = WindowFromPoint(pt.x, pt.y)
Label1 = WinText(lng_hWnd)
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
أخفاء المجلدات و الملفات عن طريق فجوال بيسك
'SetAttr pathname, attributes
'folder
SetAttr "c:\x", vbHidden
'file
SetAttr "c:\file.txt", vbHidden | |
|
