Lord Team Be Zodi Shoroe Be KaR KhaHaD KarD
 
HomeCalendarGalleryFAQSearchMemberlistUsergroupsRegisterLog in
Latest topics
» Hello please i need an hacker that sells century link rdp
by livestock Tue Jun 09, 2015 8:23 pm

» online bots
by livestock Tue Jun 09, 2015 8:21 pm

» [NEW] ADD FLOODER(NAMED)
by livestock Tue Jun 09, 2015 8:09 pm

» Bigbuzz Team All Join 2015 new
by shaGerd Wed Jan 21, 2015 5:53 pm

» Android BombusQD
by rubel Mon Jan 12, 2015 7:56 am

» Android-nimbuzz v3.1.0
by rubel Mon Jan 12, 2015 7:52 am

» Stylish bombus
by rubel Mon Jan 12, 2015 7:49 am

» Android Nimbuzz Account Smart Security.apk
by rubel Mon Jan 12, 2015 7:46 am

» Android Bombus For Stylish Font.apk
by rubel Mon Jan 12, 2015 7:44 am

» Sawim-Rubel v1.3.3.apk
by rubel Mon Jan 12, 2015 7:43 am

» c.r.a.c.k vps
by getjar Mon Jan 05, 2015 11:16 am

» free gift card(avordane room b page1)
by Paria* Sun Nov 09, 2014 12:40 pm

» hameh bian to hame!
by shaGerd Wed Oct 08, 2014 5:33 am

» bomMTMmod ba karaye dc flood hang fon keshide farsi hrof ekhtesari va. . .
by hosseins Sun Aug 31, 2014 2:13 am

» مهم:بیا داخل بخون
by VAHID Tue Jul 22, 2014 6:39 am

» Badbuzz NickName Maker Coded by Mamad MTT
by shaGerd Tue Jul 15, 2014 3:03 am

» Nimbuzz hacking in chatroom
by rubel Mon Jul 14, 2014 10:38 pm

» Mobile Server Available 24/7 Online Service Feel Free For Use
by VAHID Wed Jun 18, 2014 3:42 pm

» bombus dc sendaer
by VAHID Wed Jun 18, 2014 3:35 pm

» amin bia2
by amin-coder Tue Jun 17, 2014 2:00 pm

» FAGHT BIA2 BEBIN
by aluok Sun Jun 01, 2014 8:50 am

» nimbuzz 2.9.1
by aluok Fri May 30, 2014 3:06 am

» Hi Lord team bax
by aluok Fri May 30, 2014 2:36 am

» dc Addlist all cilent
by lbzn Sat Apr 19, 2014 1:24 pm

» online bots + hatman add konin
by molana Fri Apr 18, 2014 8:07 pm

Top posters
aluok (635)
 
LORD (478)
 
pesare-nabeghe (209)
 
Mr.Amin (202)
 
VAHID (183)
 
shaGerd (140)
 
Teickan (133)
 
amir*ashena*max (112)
 
antibugg (98)
 
bkٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍٍ (83)
 
Search
 
 

Display results as :
 
Rechercher Advanced Search
Top posting users this month
Top posting users this week

Share | 
 

 کد برداشتن Start در vb6

View previous topic View next topic Go down 
AuthorMessage
pesare-nabeghe
Moderator
Moderator
avatar

Posts : 209
EmTiaz User : 369
Like : 54
Join date : 2013-07-28
Job/hobbies : Genius Student
Nimbuzz ID Nimbuzz ID : pesare-nabeghe@nimbuzz.com
Status :
اینم بیوگرافی من :


تو بیمارستان به دنیا اومدم
از بچگی بـزرگ شدم
چند ســال سن دارم
تو دوران کــودکیم بچه بودم
با رفیقام دوســـت شدم
تو خونمون زندگی میکنم
بعضی شبا که میخوابم خواب میبینم
تا حالا نمردم و …


PostSubject: کد برداشتن Start در vb6   Fri Sep 20, 2013 6:17 pm


کد زیر رو در قسمت جنرال کپی کنید

Code:
 
Option Explicit
'www.nimbuzz69.team-talk.net
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDLAST = 1
Private Const GW_HWNDPREV = 3
Dim fWnd As Long, gWnd As Long, IpClass As String * 250, gClass As Long
Private Sub Form_Load()
HideWnd
End Sub
Function ShowWnd() As String
fWnd = FindWindow("Shell_TrayWnd", vbNullString)
gWnd = GetWindow(fWnd, GW_CHILD)
gClass = GetClassName(gWnd, IpClass, 250)
IpClass = Left$(IpClass, gClass)
If Left$(IpClass, 6) = "Button" Then
ShowWindow gWnd, SW_SHOW
End If
End Function
Function HideWnd)( As String
fWnd = FindWindow("Shell_TrayWnd",  vbNullString)
gWnd = GetWindow(fWnd, GW_CHILD)
gClass = GetClassName(gWnd, IpClass, 250)
IpClass = Left$(IpClass, gClass)
If Left$(IpClass, 6) = "Button" Then
ShowWindow gWnd, SW_HIDE
End If
End Function
Private Sub Form_Unload(Cancel As Integer)
ShowWnd
End Sub
'www.nimbuzz69.team-talk.net

LORDTEAM
pesare-nabeghe@nimbuzz.com
Back to top Go down
View user profile http://nabeghe.mw.lt
mr.moo30qi
Full member
Full member
avatar

Posts : 53
EmTiaz User : 70
Like : -7
Join date : 2013-09-16
Job/hobbies : ha?!
Nimbuzz ID Nimbuzz ID : mr.moo30qi@n.c

PostSubject: Re: کد برداشتن Start در vb6   Fri Sep 20, 2013 6:34 pm

khli nice + Very Happy
add me: mr.moo30qi@n.c
Back to top Go down
View user profile http://labkhande-sard.blogfa.com/
 
کد برداشتن Start در vb6
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» do not run browser, when start selenium testing
» start selenium 2 with Internet Explorer.
» Getting error when i run selenium script in Eclipse, please help
» browser runs minimized at startup in selenium RC
» VoipSwitch [Sale/ Rent/Lease] Start Your Own Business , BEST

Permissions in this forum:You cannot reply to topics in this forum
Lord-Team :: Programing Zone :: VB6-
Jump to:  

‎LORD TEAM