أكواد فيجول بيسك

+
----
-
كيف الحال

عدنا بعد غياااااااااااااااااااااااب طويل بس ماوجدت شي تغير في قسم الفيجول بيسك
المهم ننتقل الى الموضوع

اليوم انا سأبدأ بالمعروف وارجو من جميع المبرمجين بي تكمله
اليوم سأضع اكودا فيجول بيسك 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

الكود يوضع في بوتن

-------------------------------------------------------------------------

رجاء أغلاق الموضوع ادا لم يتم الرد من قبل الاعضاء

وشكرا.....