[Tutorial] How to make a dot crosshair (Different to w00t?'s tutorial.)

[wr194t]

Ok first add this into your module or make another module and add this:

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      

Const HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2  
Const SWP_NOSIZE = &H1


Public Function PutWindowOnTop (pFrm as Form)
  Dim lngWindowPosition As Long
  
  LngWindowPosition = SetWindowPos(pFrm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

End Function

Now make a new form, go to properties, BackColor, Palette and pick the color you want (The color you choose will be the color of your crosshair.):



Still in properties find BoderStyle and change it to 0 - None:



Now find StartUpPosition and change it to 2 - CenterScreen:



Now with the background of your form make it into a dot by making it smaller:



After doing all that go to your 1st/main form.

If you want buttons:
Make two buttons for On and Off.

Code for the On Button:

Call PutWindowOnTop(Form2)
Form2.Show

Code for the Off button:

Call PutWindowOnTop(Form2)
Form2.Hide

If you want hotkeys then make two timers.

The first timer:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyC) Then
Call PutWindowOnTop(Form2)
Form2.Show

The second timer:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyV) Then
Call PutWindowOnTop(Form2)
Form2.Hide

You don't have to use Ctrl + V, C, you can use any hotkey(s) you desire.

Note: Just to remind you that i didn't use ANYTHING from w00t?'s dot crosshair tutorial. I already made this myself and posted this on other forums days ago.

Edit: I decided to add screenshots incase anyone has trouble with this tutorial.

+rep me if this tutorial was useful/helpful to you.

Credits: wr194t (AKA 5c0tt.)

[dragooon]

The Hotkeys don't work!

[wr194t]

You don't have to use the ones as shown. Use any you want and what happens when you use them?

PS: Thanks for the -rep -.-... In future don't just -rep someone. Atleast let them help you.

[dragooon]

Haha thanks i maked a fake Virus/systeem crash
it's just a full red screen

[wr194t]

So have you got it working?

[radnomguywfq3]

XD, I don't understand why people waste there time making viruses. They can be fixed in safe mode within 14 minutes, and you are likly to get a low rep for posting one.

[wr194t]

Well i don't see the point in making some sort of a virus with this tutorial, it's just to make a crosshair.

[Jumpshot]

when setting the hotkeys i get an error message that says...

Compile Error:

Sub or Function not defined.

And then it highlights the GetKeyPress word

I have vb6 and I am very very very new at this so any help would be awesome...

Also... I would like to know how to make the dot into an actual cross hair. I made 2 lines on form2 but the background of the form will not go transparent. I found some code online to make the background transparent but none have worked or I haven't used them right. If you have an easier solution I would be glad to hear it.

And maybe some VB tips for a learning nooblet. =)

[wr194t]

when setting the hotkeys i get an error message that says...

Compile Error:

Sub or Function not defined.

And then it highlights the GetKeyPress word

I have vb6 and I am very very very new at this so any help would be awesome...

Also... I would like to know how to make the dot into an actual cross hair. I made 2 lines on form2 but the background of the form will not go transparent. I found some code online to make the background transparent but none have worked or I haven't used them right. If you have an easier solution I would be glad to hear it.

And maybe some VB tips for a learning nooblet. =)

If you changed GeyKeyPress in your module then that's why you're getting that error and as for the crosshair, try to find a working transparent background code or something. That's all i can suggest.

[Jumpshot]

I changed them to

Private Sub Timer1_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyN) Then
Call PutWindowOnTop(Form2)
Form2.Show
End Sub

And...

Private Sub Timer1_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyM) Then
Call PutWindowOnTop(Form2)
Form2.Hide
End Sub

Thats all I did...

**EDIT**
I changed them back to Ctrl+C and Ctrl+V and im still getting the same error.

[wr194t]

Did you edit "GetKeyPress" in your module? If you did then you have to also edit it in your hotkeys hacks. Also make sure your timers interval are both 1.

[Jumpshot]

Hmm no I didn't, I am new at this sorry.

Well I set both intervals at 1 like you said... but looking back on the module you told me to add...

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      

Const HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2  
Const SWP_NOSIZE = &H1


Public Function PutWindowOnTop (pFrm as Form)
  Dim lngWindowPosition As Long
  
  LngWindowPosition = SetWindowPos(pFrm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

End Function

Where in that do I edit to make the buttons change from c and v to n and m?

[condor01]

does anyone else find that the crosshair is not exactly in the middle of the screen or is that just me? like when you play warrock the crosshair is not over the real one?

[wr194t]

does anyone else find that the crosshair is not exactly in the middle of the screen or is that just me? like when you play warrock the crosshair is not over the real one?

It is slightly towards the down-left from the middle but it's close enough i guess.

[Jumpshot]

I had that problem as well condor but all I did was set my windows resolution to the same resolution i use in warrock.. and it lines up perfectly...

another fix would be to only turn on the xhairs when ur inside the game... not in the lobby but the actual game... i think that would fix it