Hi all. could any one tell me how i can make prograss bar just like when we join paltalk after we put our pass and name. I want make such a thing and after 15 seconds it closes and displays diffrent massage box. I be happy if vb expert tell me how.Thanks

method no offence dude, but i think you should start learning the basics of VB before you try making hack tools like "fake paltalk" ect...

I personally have been playing with VB for over 4 years, and still have alot to learn.

But if you really want to learn then start with basic stuff and work your way up to making more advanced code, ohhh and progress bar is one of the easyest things you will learn , it part of the basic learning you must first start with... learn about timers, learn about unloading forms and loading other forms on mouse clicks ect... then look at knowing how message boxes are used ect....

hmm method i hope you asking for something like this let me know


Hi all ...

The_Master wrote:hmm method i hope you asking for something like this let me know


Hi all ...

Thank u for u reply. Yes some thing like that i want to be able to log to paltalk server via my own form. i hope u post the code for it.Thanks

no problem man have fun with it ....

Thanks for sharing it with me. But when i load it it says modual.bas is missing. could u send it too.Thanks

this is the Module i pute it there any way copy and paste


'this loader was from a program i just took tha loader out for you
Declare Sub ReleaseCapture Lib "user32" ()
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Public Const WM_MOUSEISMOVING = &H200 ' Mouse is moving
Public Const WM_LBUTTONDOWN = &H201 'Button down
Public Const WM_LBUTTONUP = &H202 'Button up
Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
Public Const WM_RBUTTONDOWN = &H204 'Button down
Public Const WM_RBUTTONUP = &H205 'Button up
Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
Public Const WM_SETHOTKEY = &H32
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function BitBlt Lib "GDI32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2


Global iRecursion As Boolean
Global tColor As Long

Public Sub pause(Seconds)
Dim Zeit As Long
Zeit = Timer
Do
DoEvents
Loop Until Zeit + Seconds <= Timer
End Sub

Public Sub MakeTranslucent(Who As Form, Optional tColor As Long) 'Was (Who as Object) before...

On Local Error Resume Next

Dim HW As Long
Dim HA As Long
Dim iLeft As Integer
Dim iTop As Integer
Dim iWidth As Integer
Dim iHeight As Integer

If IsMissing(tColor) Or tColor = 0 Then
tColor = RGB(0, 0, 200)
End If

Who.AutoRedraw = True
Who.Hide

DoEvents

HW = GetDesktopWindow()
HA = GetDC(HW)

'Get the Left, Top, Width and Height of the Form...
iLeft = Who.Left / Screen.TwipsPerPixelX
iTop = Who.Top / Screen.TwipsPerPixelY '+ 25 If using a form with a titlebar (border)...
iWidth = Who.ScaleWidth
iHeight = Who.ScaleHeight

'Now, Transfer the contents of the Desktop Window to the Form...
Call BitBlt(Who.hdc, 0, 0, iWidth, iHeight, HA, iLeft, iTop, SRCCOPY) 'iLeft + 4 If using a form with a titlebar (border)...

'Show...
Who.Picture = Who.Image
Who.Show

'Release the DC...
Call ReleaseDC(HW, HA)

'Add color...
Who.DrawMode = 9
Who.ForeColor = tColor
Who.Line (0, 0)-(iWidth, iHeight), , BF

End Sub
Sub Progress(pb As Control, ByVal percent)


Dim num$
If Not pb.AutoRedraw Then
pb.AutoRedraw = -1
End If
pb.Cls
pb.ScaleWidth = 100
pb.DrawMode = 10
num$ = Format$(percent, "###") + "%"
pb.CurrentX = 50 - pb.TextWidth(num$) / 2
pb.CurrentY = (pb.ScaleHeight - pb.TextHeight(num$)) / 2
pb.Print num$
pb.Line (0, 0)-(percent, pb.ScaleHeight), , BF
pb.Refresh
End Sub