SRL Archive - C#/Visual Basic Help and Tutorials

Total update

Looks cool, good to see you got it working.

From: almost
Looks cool, good to see you got it working.

hardes part was to get players amount… :X other thing was easer becouse client i have made before ;P but your function gived exelent idea ;P client its easer to see then scar rlly :) u see it all time :) on maximized form.

I havent seen the source yet, but Ive seen the .exe.

I would prolly guess you are using a few twenty or so timers for the Time things.

The Browser position is just editing the witdh and height INSIDE of the browser.

Highscore lookup is simple Inet with Dividetext.

I give this a 9.5/10 as the only part I dont like is the stupid error when I enter my name for the highscores and it says User not found! and then there are my stats..

Great job and I hope you will keep this going.

Here are some suggestions for what you can do to improve it :
Power Rune Miner (Not too fancy, but should get the job done)
Person Reporter (Will simply hover over an name inside the browser and then report that user for rule 7 or something)
World Switcher (Can be easly done by a timer or 2)

GJ.

Basic. Pretty much a Hello World application lol.

Niixu - I seriously hope he is not using 20 or so timers, :). That would make me rate this a -10/10 ^^

From: Niixu
I havent seen the source yet, but Ive seen the .exe.

I would prolly guess you are using a few twenty or so timers for the Time things.

The Browser position is just editing the witdh and height INSIDE of the browser.

Highscore lookup is simple Inet with Dividetext.

I give this a 9.5/10 as the only part I dont like is the stupid error when I enter my name for the highscores and it says User not found! and then there are my stats..

Great job and I hope you will keep this going.

Here are some suggestions for what you can do to improve it :
Power Rune Miner (Not too fancy, but should get the job done)
Person Reporter (Will simply hover over an name inside the browser and then report that user for rule 7 or something)
World Switcher (Can be easly done by a timer or 2)

GJ.

Yes u are right but msg goes out then nick doesnt egzist or if u press search on entered username,,, idk otherways… power miner? for rune? idont think what vb6 can do that and i am not so proof on that side. i know vb6can move mouse but find colors or something.. hm maybe…word switcher nice idea… but here is point why i do not use it. updates, diferend addresses then need change source. and then u loging out to change world its easy, for reporting i dont think that vb6 can do that same as pw.mining. but thx for 9.5 :) very nice to heard that.

From: Gavril
Basic. Pretty much a Hello World application lol.

Niixu - I seriously hope he is not using 20 or so timers, :). That would make me rate this a -10/10 ^^

here is atleast 10, 12 timer becouse i used one for one timer textbox. it was my very first using of timers idk other way right now. and html read from rs page was to very first procedure on vb6 project. so i can use 1 timer for all textboxes?

From: Laimonas171
here is atleast 10, 12 timer becouse i used one for one timer textbox. it was my very first using of timers idk other way right now. and html read from rs page was to very first procedure on vb6 project. so i can use 1 timer for all textboxes?

Use a Wait function instead, its ALOT better!

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Public Sub Wait(ByVal ms As Long)
ms = timeGetTime() + ms
Do: DoEvents: Loop While ms > timeGetTime()
End Sub

usage : Wait 100

1000 = 1 sec, 100 = 0.1 sec, just as SCAR.

This can also be used as a rune miner timer ;)

Heres a small code I just made for moving the mouse..

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10

Public Sub LeftDown()
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
End Sub

Public Sub LeftUp()
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Public Sub MiddleDown()
mouse_event MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0
End Sub

Public Sub MiddleUp()
mouse_event MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
End Sub

Public Sub RightDown()
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
End Sub

Public Sub RightUp()
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

Public Sub SetMousePos(x As Long, y As Long)
SetCursorPos x, y
End Sub

This code is the last peice I will give to you and this is the last part of the miner, just put it together.

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

'Put "0" as windowHWND to find the color from the whole screen. To get hwnd from a window you want to search color from, you need to use WindowFromPoint-API.
Public Function CursorToColor(windowHWND As Long, colorcode As Long)
Dim wndRect As RECT
Dim X As Long, Y As Long, test As Long

GetWindowRect windowHWND, wndRect
test = GetDC(windowHWND)
For Y = 0 To (wndRect.Bottom - wndRect.Top)
For X = 0 To (wndRect.Right - wndRect.Left)
If GetPixel(test, X, Y) = colorcode Then
SetCursorPos X + wndRect.Left, Y + wndRect.Top
Exit Function
End If
Next X
Next Y
End Function

From: Laimonas171
here is atleast 10, 12 timer becouse i used one for one timer textbox. it was my very first using of timers idk other way right now. and html read from rs page was to very first procedure on vb6 project. so i can use 1 timer for all textboxes?

10-12 timers in VB6? Good god man. Your just looking to make a massive memory leak!

Yes, you can do everything that your doing with a single timer. You can even do it all without any timers at all, tho' that'd be at the intermediate level of programming in VB6 :)

From: Niixu
Heres a small code I just made for moving the mouse…

Those are API calls -.-

Dont claim credit for shit you didnt do.

From: Gavril
Those are API calls -.-

Dont claim credit for shit you didnt do.

man doesnt your "Calls" from VB5 or .net or how it named idk… but this one
doesnt workd at all… and other 2 do not show errors but do nothing.
[PHP]Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10

Public Sub LeftDown()
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
End Sub

Public Sub LeftUp()
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Public Sub MiddleDown()
mouse_event MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0
End Sub

Public Sub MiddleUp()
mouse_event MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
End Sub

Public Sub RightDown()
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
End Sub

Public Sub RightUp()
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

Public Sub SetMousePos(x As Long, y As Long)
SetCursorPos x, y
End Sub
[/PHP]

From: Gavril
Those are API calls -.-

Dont claim credit for shit you didnt do.

Why should god claim credit for making a shiity person like you?

I made that code a long time ago when I was into macros & recording.

@Laimonas171 :

They both work, you just dont know how to set them up, and I wont help.

From: Niixu
Why should god claim credit for making a shiity person like you?

I made that code a long time ago when I was into macros & recording.

@Laimonas171 :

They both work, you just dont know how to set them up, and I wont help.

hm it would be very nice i think. just need get free time to fix timers (take just 1) and try to add your functions. :)

I gave you rep cause this is exactly what i need, but when i type a world in and click start a runtime error comes up and the client closes