|
|
بۇ يازمىنى ئاخىرىدا كۆك ئاسمان تەھرىرلىگەن. ۋاقتى 2014-6-20 14:01
ئەسسالامۇ ئەلەيكۇم دوسىتلار:مۇشۇ يېقىندىن بېرى پىروگىرامما تىلغا قىزىقىپ قېلىپ ئۇيغۇرچە دەرىسلىكلەرنى كۆرۈپ مەشىق قىلىش ئارقىلىق ئاز-تولا ئاساسقا ئىگە بولدۇم،ھەم شۇ دەرىسلىكلەردىن پايدىلنىپ كومپىيوتىر ئېكرانىغا قۇلۇپ سالغىلى بولدىغان بۇ دىتالنى ياساپ باقتىم.بۇنى قاچىلاشتىن بۇرۇن كومپىيوتىرىڭىزدا ئۇيغۇرچە خەت نۇسقىسى بولشى كېرەك ،بولمىسا خەتلەرنى ئوقۇغىلى بولمايدۇ، كۆرۈپ بېقىڭلار.
چۈشۈرۈش ئادىرسى:http://url.cn/QYANUt
كۆرۈنمە يۈزى؛
1-كۆزنەك كودى
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_SHOWWINDOW As Long = &H40
Private Const SWP_HIDEWINDOW As Long = &H80
Private Const SWP_NOACTIVATE As Long = &H10
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "siz xifir ornatmapsiz,kayta sinsg", 0, "QQ:1936475217"
Else
If Text1.Text <> Text2.Text Then
MsgBox "2Ketimlik Mima Ohximidi,Kayta Kirguzig!", 0, "kok asman"
Else
Form2.show
Dim hide As Long
hide = FindWindow("Shell_traywnd", vbNullString)
Call SetWindowPos(hide, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End If
End If
Form1.hide
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
Label4.Left = Label4.Left + 100
End Sub
2-كۆزنەك كودى
Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SWP_SHOWWINDOW As Long = &H40
Private Const SWP_HIDEWINDOW As Long = &H80
Private Const SWP_NOACTIVATE As Long = &H10
Private Sub Command1_Click()
If Text1.Text = Form1.Text1.Text Then
Dim myval As Long, show As Long
myval = SystemParametersInfo(97, False, CStr(1), 0)
show = FindWindow("Shell_traywnd", vbNullString)
Call SetWindowPos(show, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End
Else
Label3.Caption = "! ─╝^╞}]╨y ╦╓]╨r╨i ║$n├╘D #]m╘L "
End If
End Sub
Private Sub Form_Load()
Dim myval
myval = SetWindowPos(Form2.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
بۇ كوددىن پايدىلنىپ ياسىدىم
تولۇقلىما مەزمۇن (2014-6-20 17:19):
دىتال چۈشۈرۈش ئادىرسى:
http://115.com/lb/5lbd8y3gb432 كىرگۈزگۈچ HIYAL.IME.rar
http://115.com/lb/5lbc1m1q294q
تولۇقلىما مەزمۇن (2014-6-20 17:20):
HIYAL.IME.rar
115网盘礼包码：5lbaxfxs3jul
http://115.com/lb/5lbaxfxs3jul |
|
دېۋان تالىشىش
