Navigation Menu

[The_Master]

Posted: Fri May 27, 2005 8:52 pm Post subject: Paltalk Prankster is Back and i need HELP

[The_Master]

wrong topic chupa cabra

[The_Master]

yeah man i did test it to and it works sometimes u get and errorr all you have to do is click continue and thats it you can open two windows and more 🙂 good job …

[The_Master]

niceee

[The_Master]

@LoCNiNjA wrote:

for god sake folk just come and take the program and giv no feed back 12 times it has been downloaded and 1 feed back 8) its like no one wants to actually hack crack or even stepback when we create these things 😈 might just risided myself to been disruptive instead 😈 😈 😈 😈 😈 😈 😈 😈 😈 😈 😈 😈 😈 😈 😈 👿 👿 👿 👿

good job man it works great if you can do some changes make the play list biger and to be able to double click on the songs 🙂 again job job i like it :)))))

[The_Master]

just click Browse… and select wich pic from you pc and add it simple 🙂

[The_Master]

great job Loco 😀 thanx for taking your to time to explain this is simple im sure new members can use this keep up the good work…..

[The_Master]

thanks man good job i ben looking for somethin like this 😀

[The_Master]

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

[The_Master]

no problem man have fun with it ….

[The_Master]

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

Hi all … 🙂

[The_Master]

nice work Loco looks like u forgat somethink .About .Help .Contact there is no form showin up probly u forgat just though i let you know 🙂 good job again keep up the good work..

[The_Master]

damnn this is nicee one i wish i can use this on my voice chat good job bro

does any one use or have any codes evoicemaster voice chat if yes let me know 🙂

[The_Master]

that would be great man sound like a peace of work stereo mix its so much better whene u play music its clear i think every boddy would like that good work bro….. 😀

[The_Master]

well not shure about that but if you have saved password on msn there is a program called ” SeePassword ” its like a Mirrorr you can see the password you can find it in google.com

[Author]

Posts