مۇنبەر › vb\vb.net › ئېكران قۇلۇپلاش دىتالى

كۆك ئاسمان يوللانغان ۋاقتى 2014-6-20 13:57:12

ئېكران قۇلۇپلاش دىتالى

بۇ يازمىنى ئاخىرىدا   كۆك ئاسمان تەھرىرلىگەن. ۋاقتى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

خاككىر يوللانغان ۋاقتى 2014-6-20 14:45:02

kaltis kansiz gu amsa

sada0998 يوللانغان ۋاقتى 2014-6-20 14:47:52

رەھمەت مەن ساقلىۋالاي

ئوۋچى0903 يوللانغان ۋاقتى 2014-6-20 14:49:48

رەھمەت

wuxur يوللانغان ۋاقتى 2014-6-20 14:56:46

كود دىگەن لاتىن ھەرىپلىرىنى قانچىلىك يازغاندا پۇتىدۇ.ساپلا ئىنگىلسچە خەت ۋە ھەرخىل بەلگىلەركەنغۇ

1767177327 يوللانغان ۋاقتى 2014-6-20 15:49:03

بۇ يازمىنى ئاخىرىدا   1767177327 تەھرىرلىگەن. ۋاقتى2014-6-20 15:50

خاككىرتورىنىڭ   ادىرىسىنى   بىلسەڭلا   دەپ   بىرىڭلا

ArpatKurban يوللانغان ۋاقتى 2014-6-20 16:03:05

كوديېزىشنى بىلگەن ئادەم يەنە قانداق قانداق ئىشلارنى قىلالايدۇ؟

ئۆزباش يوللانغان ۋاقتى 2014-6-20 16:06:36

1767177327 يوللىغان ۋاقتى2014-06-20 15:49:03 static/image/common/back.gif
بۇ يازمىنى ئاخىرىدا   1767177327 تەھرىرلىگەن. ۋاقتى2014-6-2
خاككىرلار بىرلەشمىسىنىڭمۇ؟

alipalim يوللانغان ۋاقتى 2014-6-20 16:07:54

مەندىمۇ بىر ئاندىرويىد ئەپ دىتالى بار ئىدى بۇنى كود لاشتۇرۇپ بىرەمسىز ئەمسە
مەندىكى دېتال تور تېلفۇنلارنى ئاچىدىغان ئىتىدىغان دىتال ئىدى تېلگىرافنىڭ دىتالى
بۇ دىتالنى بۇرۇنقى كۇنۇپكىسى بار تېلفۇنلاردا ئىشلەيدىغان قىلساق بەك ئۇبدان بۇلاتتى
بۇرۇنقى يانفۇنلاردا qq jad jar شەكىلدە چىقاتتى مەن مۇشۇ شەكىلدە دىمەكچى
قىلالايدىغان ئۇستازلار بارمۇ
چۈنكى مەن كۇنۇپكۇلۇق تېلفۇن ئىشلىتەي دىگەن
ياردەم قىلساڭلار

smile يوللانغان ۋاقتى 2014-6-20 16:14:32

vb ئارقىلىق ياساپسىزدە بۇ دىتالنى.بىر چاغدا مەنمۇ vb ھەۋەسكارىتىم.

图尔荪托合提 يوللانغان ۋاقتى 2014-6-20 16:24:32

ئادرىسى ئۆچۈپ كېتىپتۇ قېرىندىشىم،ئادرىسىنى يەنە تەھرىرلەپ قويالاسىزمۇ؟رەھمەت!

omak77 يوللانغان ۋاقتى 2014-6-20 16:25:49

كىرگۈزگۈچ

dilistan يوللانغان ۋاقتى 2014-6-20 16:31:53

رەھمەت! ئىشلىرىڭىز تېخىمۇ ئۇتۇغلۇق بولسۇن!ئۈندىدارنىڭ يېڭى نەشىرنى تەرجىمە قىلىۋەتسىڭىز بولىتى. ساقلاپ كۆزىمىز تۆت بولدى

كۆك ئاسمان يوللانغان ۋاقتى 2014-6-20 17:02:23

muj@hit يوللىغان ۋاقتى2014-6-20 16:03 static/image/common/back.gif
كوديېزىشنى بىلگەن ئادەم يەنە قانداق قانداق ئىشلارنى...

كود يېزىشنى بىلسىڭىز چوڭ چوڭ دىتاللارنى ياسىيالايسىز.ھەر خىل سېستىملارنى ياسىيالايسىز

كۆك ئاسمان يوللانغان ۋاقتى 2014-6-20 17:04:01

smile يوللىغان ۋاقتى2014-6-20 16:14 static/image/common/back.gif
vb ئارقىلىق ياساپسىزدە بۇ دىتالنى.بىر چاغدا مەنمۇ vb ھەۋ ...

توغرا شۇنىڭدا ياىسدىم

: ئېكران قۇلۇپلاش دىتالى