_Voodoo_

يلزمك جهاز سيرفر و يوضع عليه البرنامج

يعنى اية؟؟

Private Const EWX_LOGOFF = 0 Private Const EWX_SHUTDOWN = 1 Private Const EWX_REBOOT = 2 Private Const EWX_FORCE = 4 Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Sub ShutDown() ExitWindows…

باعتقد ان lblcd هو اسم اداة label ان كان كذلك فما عليك الا تغيير كود Private Sub Command1_Click() الى Private Sub Command1_Click() Call Shell("explorer " & Lblcd, vbMaximizedFocus) End Sub او يمكنك تعريف متغيير لحفظ اسم حرف القرص المدمج و وضعة مكان Lblcd

مثل هذا يحتاج الى برنامج يقوم بعمل WebServer والشرح التالى به مثال ل webserver بسيط اولا انشاء فورم جديد واضيفى اداة winsock و اجعلي خاصية index لها = 0 ثانيا انشاء ثلاثة تيكس بوكس txtname, TxtAge,TxtJob كود الفورم Option Explicit Dim Connections As Integer Pr…

توجد اداة تقوم باستعراض الملفات و هى FileListBox موجودة بشريط الادوات ويمكنك تغيير مسارها لتعرض محتويات القرص المدمج File1.Path = "H:\" يمكنك تغيير "H:\" الى مسار القرص المدمج لديك كود تشغيل البرامج Shell "H:\Prog.exe", vbNormalFocus يمكنك تغيير "H:\" الى مسار…

ضع الملفين في Resource File غالبا يبدا ترقيم الملفات بالريسورس من 101 لاستخراج الملفات اكتب الكود Dim ResData() As Byte ResData = LoadResData(101, "Custom") '101 رقم الملف بالريسورس 'Custom نوع الريسورس '"C:\1.dll" المسار الذى تريد حفظ الملف به Open "C:\1.dll"…

Printer.PaperSize = PrinterObjectConstants.vbPRPSA3

هذا تصحيح الكود Private Sub Text1_KeyPress(KeyAscii As Integer) If InStr(1, "123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub وهذا كود اخر Private Sub Text1_KeyPress(KeyAscii As Integer) If IsNumeric(Chr(KeyAscii)) = False Then KeyAscii = 0 End Sub الا…

لم اضع كود فتح الملف لانك لم تطلبة لفتح الملف cmnDlg.Filter = "Text|*.txt" cmnDlg.Flags = FileOpenConstants.cdlOFNHideReadOnly cmnDlg.FileName = "" cmnDlg.ShowOpen If cmnDlg.FileName <> "" Then Open cmnDlg.FileName For Input As #1 Text1.Text = Input$(LOF(1), 1…

cmnDlg.Filter = "Text|*.txt" cmnDlg.Flags = FileOpenConstants.cdlOFNHideReadOnly cmnDlg.FileName = "" cmnDlg.ShowSave If cmnDlg.FileName <> "" Then Open cmnDlg.FileName For Output As #1 Print #1, Text1.Text Close #1 End If

Option Explicit Const RSP_SIMPLE_SERVICE = 1 Const RSP_UNREGISTER_SERVICE = 0 Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long…

Private Sub File1_Click() Text1 = FileLen(File1.Path & "\" & File1.FileName) & " Bytes" End Sub

1 - يجب اضافة module جديد وانسخ فية الاتى Option Explicit 'subclass Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc Lib…

انسخ الكود كما هو في صفحة الكود و عندما تريد استخدام الكود فقط اكتب في اي كود مثلا Private Sub Form_Load() PrintStretch End Sub

1- بافتراض ان الصورة علي الفورم ذاتة وليست داخل picturebox او image وان حجم الفورم نفس حجم الصورة فاستخدام هذا الكود يرسل الصورة مكبرة الى الطابعة بحجم الورقة كاملة Private Sub PrintStretch() Printer.PaintPicture Form1.Image, 0, 0, Printer.Width, Printer.Heigh…

1 - يجب اضافة module جديد وانسخ فية الاتى Option Explicit 'subclass Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function CallWindowProc Lib…

جزء المستقبل ================== انشئ مشروع جديد اضف اداة Winsock Option Explicit Private Sub Form_Load() 'اعطاء اداة winsock منفذ لتعمل علية Winsock1.LocalPort = 15000 'اعطاء امر لwinsock لانتظار الاتصال Winsock1.Listen End Sub Private Sub Winsock1_ConnectionR…

Option Explicit Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, By…

من قائمة project اختر components ثم اختر microsoft winscok control