Admin Admin
عدد المساهمات : 2035 نقاط : 5633 السٌّمعَة : 11 تاريخ التسجيل : 16/05/2012 العمر : 38
| موضوع: أكواد فيجول بيسك الثلاثاء أكتوبر 30, 2012 9:52 am | |
| كيف الحال
عدنا بعد غياااااااااااااااااااااااب طويل بس ماوجدت شي تغير في قسم الفيجول بيسك المهم ننتقل الى الموضوع
اليوم انا سأبدأ بالمعروف وارجو من جميع المبرمجين بي تكمله اليوم سأضع اكودا فيجول بيسك 6 وفيجول بيسك نت وكل كود بأكتب في شن يستعمل وفي اي فيجول
نبدأ
1)كود نسخ اي شي موجود في **** انت تحدده (فيجول بيسك 6 )
Private Sub Command1_Click() With Clipboard .Clear DoEvents .Set**** ****2.**** End With End Sub
طبعا الكود بتضعه في بوتن --------------------------------------------------------------------- 2)كود اخفاء ايقونات سطح المكتب هادا الكود يوضع في بوتن او في check (فيجول بيسك 6 )
Private Sub chk_Click(Index As Integer) Dim T As String
Select Case Index Case 0: DesktopIcons (chk(Index).Value) Case 5: StartButton (chk(Index).Value) Case 6: TaskbarState (chk(Index).Value) Case 7: Tray**** (chk(Index).Value), txt1 Case 11: If chk(Index).Value = 1 Then Re****StartButton Else PostMessage BtnWnd, BM_SETIMAGE, 0&, 0& End If End Select
T = chk(Index).Tag
If T <> "" Then T = IIf(Left(T, 5) <> "NoDis", "Explorer", "System") & T WSH.RegWrite PolPath & T, chk(Index).Value, "REG_DWORD" End If
End Sub
------------------------------------------------------------------------ 3) كود اعادة تشغيل الحاسب يستعمل للكل
Shell("Shutdown -r")
ضع الكود في بوتن
------------------------------------------------------------------------
4) كود تشغيل فيديو يوتيوب (فيجول بيسك دوت نت )
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim aMovieURL As String aa = Split(****Box1.****, "watch?v=") If UBound(aa) > 0 Then aMovieURL = aa(0) + "/v/" + aa(1) ShockwaveFlash1.Movie = aMovieURL ShockwaveFlash1.Play() Else MsgBox("يجب وضع رابط الفيديو لتشغيله") End If
الكود يوضع في بوتن
---------------------------------------------------------------------- 5) الان كود يمكن ان تصنع به برنامج زخرفة وبرنامج فك تشفير وبرنامج تشفير (فيجول بيسك نت )
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim d As String Dim q As String Dim s As Integer ****2.**** = "" d = (****1.****) For s = 1 To Len(d) Step 2 q = Mid(d, s, 2) If q = " " Then ****2.**** = ****2.**** & " " End If If q = Environment.NewLine & Environment.NewLine Then ****2.**** = ****2.**** & Environment.NewLine End If If q = "d%" Then ****2.**** = ****2.**** & "ا" End If If q = "-+" Then ****2.**** = ****2.**** & "=" End If If q = "h@" Then ****2.**** = ****2.**** & "ب" End If If q = "k#" Then ****2.**** = ****2.**** & "ت" End If If q = "i$" Then ****2.**** = ****2.**** & "ث" End If If q = "q^" Then ****2.**** = ****2.**** & "ج" End If If q = "wv" Then ****2.**** = ****2.**** & "ح" End If If q = "a*" Then ****2.**** = ****2.**** & "خ" End If If q = "mc" Then ****2.**** = ****2.**** & "د" End If If q = "nx" Then ****2.**** = ****2.**** & "ذ" End If If q = "a6" Then ****2.**** = ****2.**** & "ر" End If If q = "ab" Then ****2.**** = ****2.**** & "ز" End If If q = "aي" Then ****2.**** = ****2.**** & "س" End If If q = "ad" Then ****2.**** = ****2.**** & "ش" End If If q = "}a" Then ****2.**** = ****2.**** & "ص" End If If q = "f؟" Then ****2.**** = ****2.**** & "ض" End If If q = ":g" Then ****2.**** = ****2.**** & "ط" End If If q = "c؛" Then ****2.**** = ****2.**** & "ظ" End If If q = "_d" Then ****2.**** = ****2.**** & "ع" End If If q = "fم" Then ****2.**** = ****2.**** & "غ" End If If q = "fى" Then ****2.**** = ****2.**** & "ف" End If If q = "+s" Then ****2.**** = ****2.**** & "ق" End If If q = "!f" Then ****2.**** = ****2.**** & "ك" End If If q = "s&" Then ****2.**** = ****2.**** & "ل" End If If q = "dc" Then ****2.**** = ****2.**** & "م" End If If q = "hj" Then ****2.**** = ****2.**** & "ن" End If If q = ";f" Then ****2.**** = ****2.**** & "ه" End If If q = "Es" Then ****2.**** = ****2.**** & "و" End If If q = "Kf" Then ****2.**** = ****2.**** & "ي" End If If q = "Xs" Then ****2.**** = ****2.**** & "ئ" End If If q = "as" Then ****2.**** = ****2.**** & "ء" End If If q = "ba" Then ****2.**** = ****2.**** & "ؤ" End If If q = "ts" Then ****2.**** = ****2.**** & "آ" End If If q = "dش" Then ****2.**** = ****2.**** & "ة" End If If q = "dO" Then ****2.**** = ****2.**** & "ى" End If If q = "ضf" Then ****2.**** = ****2.**** & "1" End If If q = "اf" Then ****2.**** = ****2.**** & "2" End If If q = "كط" Then ****2.**** = ****2.**** & "3" End If If q = "سي" Then ****2.**** = ****2.**** & "4" End If If q = "عط" Then ****2.**** = ****2.**** & "5" End If If q = "يق" Then ****2.**** = ****2.**** & "6" End If If q = "ؤر" Then ****2.**** = ****2.**** & "7" End If If q = "شس" Then ****2.**** = ****2.**** & "8" End If If q = "تؤ" Then ****2.**** = ****2.**** & "9" End If If q = "ءئ" Then ****2.**** = ****2.**** & "0" End If If q = "nb" Then ****2.**** = ****2.**** & "أ" End If
If q = "bv" Then ****2.**** = ****2.**** & "إ" End If
If q = "qw" Then ****2.**** = ****2.**** & "@" End If If q = "lk" Then ****2.**** = ****2.**** & "!" End If If q = "ty" Then ****2.**** = ****2.**** & "-" End If If q = "br" Then ****2.**** = ****2.**** & "." End If If q = "za" Then ****2.**** = ****2.**** & "(" End If If q = "ga" Then ****2.**** = ****2.**** & ")" End If If q = "qp" Then ****2.**** = ****2.**** & "/" End If If q = "dg" Then ****2.**** = ****2.**** & "" End If If q = "xH" Then ****2.**** = ****2.**** & "'" End If If q = "q?" Then ****2.**** = ****2.**** & "؟" End If If q = "ئش" Then ****2.**** = ****2.**** & "?" End If If q = "qO" Then ****2.**** = ****2.**** & "{" End If If q = "co" Then ****2.**** = ****2.**** & "}" End If If q = "a" Then ****2.**** = ****2.**** & "[" End If If q = ")w" Then ****2.**** = ****2.**** & "]" End If If q = "v-" Then ****2.**** = ****2.**** & "*" End If If q = "*f" Then ****2.**** = ****2.**** & "+" End If If q = "$" Then ****2.**** = ****2.**** & "7g" End If If q = "^h" Then ****2.**** = ****2.**** & "#" End If If q = ".b" Then ****2.**** = ****2.**** & "&" End If If q = "qn" Then ****2.**** = ****2.**** & ":" End If If q = "iw" Then ****2.**** = ****2.**** & ";" End If If q = "c%" Then ****2.**** = ****2.**** & "<" End If If q = "w!" Then ****2.**** = ****2.**** & ">" End If If q = "l+" Then ****2.**** = ****2.**** & "a" End If If q = "54" Then ****2.**** = ****2.**** & "b" End If If q = "xs" Then ****2.**** = ****2.**** & "c" End If If q = "l8" Then ****2.**** = ****2.**** & "d" End If If q = "f9" Then ****2.**** = ****2.**** & "e" End If If q = "v*" Then ****2.**** = ****2.**** & "f" End If If q = "zV" Then ****2.**** = ****2.**** & "g" End If If q = "xA" Then ****2.**** = ****2.**** & "h" End If If q = "vF" Then ****2.**** = ****2.**** & "i" End If If q = "s9" Then ****2.**** = ****2.**** & "j" End If If q = "N!" Then ****2.**** = ****2.**** & "k" End If If q = "Wq" Then ****2.**** = ****2.**** & "l" End If If q = "Qs" Then ****2.**** = ****2.**** & "m" End If If q = "Xp" Then ****2.**** = ****2.**** & "n" End If If q = "lB" Then ****2.**** = ****2.**** & "o" End If If q = "Sy" Then ****2.**** = ****2.**** & "p" End If If q = "jS" Then ****2.**** = ****2.**** & "q" End If If q = "K!" Then ****2.**** = ****2.**** & "r" End If If q = "J+" Then ****2.**** = ****2.**** & "s" End If If q = "Dt" Then ****2.**** = ****2.**** & "t" End If If q = "J!" Then ****2.**** = ****2.**** & "u" End If If q = "fD" Then ****2.**** = ****2.**** & "v" End If If q = "ww" Then ****2.**** = ****2.**** & "w" End If If q = "Cx" Then ****2.**** = ****2.**** & "x" End If If q = "++" Then ****2.**** = ****2.**** & "y" End If If q = "*!" Then ****2.**** = ****2.**** & "z" End If If q = "3+" Then ****2.**** = ****2.**** & "A" End If If q = "76" Then ****2.**** = ****2.**** & "B" End If If q = "90" Then ****2.**** = ****2.**** & "C" End If If q = "K3" Then ****2.**** = ****2.**** & "D" End If If q = "A6" Then ****2.**** = ****2.**** & "E" End If If q = "F8" Then ****2.**** = ****2.**** & "F" End If If q = "B1" Then ****2.**** = ****2.**** & "G" End If If q = "C2" Then ****2.**** = ****2.**** & "H" End If If q = "JA" Then ****2.**** = ****2.**** & "I" End If If q = "9b" Then ****2.**** = ****2.**** & "J" End If If q = "Z0" Then ****2.**** = ****2.**** & "K" End If If q = "S5" Then ****2.**** = ****2.**** & "L" End If If q = "9]" Then ****2.**** = ****2.**** & "M" End If If q = "]1" Then ****2.**** = ****2.**** & "N" End If If q = "?d" Then ****2.**** = ****2.**** & "O" End If If q = "t_" Then ****2.**** = ****2.**** & "P" End If If q = "d~" Then ****2.**** = ****2.**** & "Q" End If If q = "s>" Then ****2.**** = ****2.**** & "R" End If If q = "I+" Then ****2.**** = ****2.**** & "S" End If If q = "Ft" Then ****2.**** = ****2.**** & "T" End If If q = "#!" Then ****2.**** = ****2.**** & "U" End If If q = "*D" Then ****2.**** = ****2.**** & "V" End If If q = "w)" Then ****2.**** = ****2.**** & "W" End If If q = "@x" Then ****2.**** = ****2.**** & "X" End If If q = "Y" Then ****2.**** = ****2.**** & "~+" End If If q = "*%" Then ****2.**** = ****2.**** & "Z" End If If q = "يخ" Then ****2.**** = ****2.**** & "ـ" End If
Next s
End Sub
End Class
الكود يوضع في بوتن
-------------------------------------------------------------------------
رجاء أغلاق الموضوع ادا لم يتم الرد من قبل الاعضاء
وشكرا..... | |
|
shooter
عدد المساهمات : 4 نقاط : 7 السٌّمعَة : 1 تاريخ التسجيل : 06/11/2012
| موضوع: رد: أكواد فيجول بيسك الخميس نوفمبر 08, 2012 8:33 am | |
| مبدع مزيد من التقدم | |
|