[VB] Login?

[Cephalopod]

Well, I definitely know sending clicks and keystrokes are fine, as all multiboxing programs do it (we send the keypress to each window) however logging in involves automation.

The argument is whether the login process can be considered 1 action, if it is, then it's fine as one mouse click (on a button) -> one action (logging in) is fine. A blue hasn't posted, which usually means they aren't going to outright approve, nor disapprove. I'd do it without worrying about it.

ETA: Might as well say how I handle my logging in.

Clear clipboard.
load encrypted username, decrypt, place into clipboard.
Postmessage ctrl+v to wow.
pause
postmessage 2 * del to wow. this is a bastard feature, I don't know why but it kept adding two v's after every postmessage and no one could explain why so this is a temp fix till I feel like looking into it again.
postmessage tab
pause
clear clipboard
load encrypted password, decrypt, place into clipboard.
Postmessage ctrl+v to wow.
postmessage 2 * del to wow.
enter

Will post sample code if desired, but I'll have to write it as my code is messy.

[Timzorize]

Can you guys please stay to the thread

[Timzorize]

Well, I definitely know sending clicks and keystrokes are fine, as all multiboxing programs do it (we send the keypress to each window) however logging in involves automation.

The argument is whether the login process can be considered 1 action, if it is, then it's fine as one mouse click (on a button) -> one action (logging in) is fine. A blue hasn't posted, which usually means they aren't going to outright approve, nor disapprove. I'd do it without worrying about it.

ETA: Might as well say how I handle my logging in.

Clear clipboard.
load encrypted username, decrypt, place into clipboard.
Postmessage ctrl+v to wow.
pause
postmessage 2 * del to wow. this is a bastard feature, I don't know why but it kept adding two v's after every postmessage and no one could explain why so this is a temp fix till I feel like looking into it again.
postmessage tab
pause
clear clipboard
load encrypted password, decrypt, place into clipboard.
Postmessage ctrl+v to wow.
postmessage 2 * del to wow.
enter

Will post sample code if desired, but I'll have to write it as my code is messy.

Yes, I need the source :P Sorry for double post

[Cephalopod]

I code in c# so will rewrite it later for vb.net - never touched vb.net so need to check a few things first. In the middle of a bit of optimisation so you'll have to wait :P

If you want a head start, google the PostMessage api, along with the find FindWindow api.

[Timzorize]

I code in c# so will rewrite it later for vb.net - never touched vb.net so need to check a few things first. In the middle of a bit of optimisation so you'll have to wait :P

If you want a head start, google the PostMessage api, along with the find FindWindow api.

Ok, I will wait for your code and +Rep if it works!

[ReidE96]

Midol - Convert C# to VB.NET - A free code conversion tool - developer Fusion - Visual Basic, C# Programming, ASP.NET, .NET Framework and Java Tutorials

You can straight port c# to vb.net.

[Cephalopod]

Ohhh, thanks!

Tim, in the middle of moving back to my laptop (and I work the next 3 days) so you've got a few days of waiting.

[Timzorize]

Ohhh, thanks!

Tim, in the middle of moving back to my laptop (and I work the next 3 days) so you've got a few days of waiting.

Thank you! +Rep if it works.

[JoeBiden]

Why does nobody actually help him?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Process.Start("C:\Programme\World of Warcraft\WoW.exe")
        AppActivate("World of Warcraft")
        SendKeys.Send(TextBox1.Text)
        (SEND TAB HERE, NO IDEA HOW TO DO THAT)
        SendKeys.Send(TextBox2.Text)
    End Sub

^ that will give you something to play arround with i hope.

I just started VB like two weeks ago so dont flame meh if its fail

[Cephalopod]

Because I was interstate visiting my girlfriend who I hadn't seen in 3 months, didn't have vb.net with me and couldn't be bothered downloading it.

I've got a day off tomorrow. Will do it then, and I did help him. I told him what APIs to research, if people want code written then they have to wait till I am not busy.

[JoeBiden]

Because I was interstate visiting my girlfriend who I hadn't seen in 3 months, didn't have vb.net with me and couldn't be bothered downloading it.

I've got a day off tomorrow. Will do it then, and I did help him. I told him what APIs to research, if people want code written then they have to wait till I am not busy.

Didn't mean you, don't worry didn't really mean anyone just ment it in a joking kinda way.

[Cephalopod]

Net is going too slow to download vb.net

Here is code in c#, it's not the same code I use so I have nfi if it works. Theoritically, it should.

Should only take a few minutes to convert the code to vb.net

        
        [DllImport("User32.dll")]
        public static extern Int32 SendMessage(IntPtr hWnd, int wMsg, int wParam, int lParam);
        [DllImport("User32.DLL")]
        public static extern IntPtr FindWindow(String lpClassName, String lpWindowName);

        public const int WM_CHAR = 0x102;
        public const int WM_KEYDOWN = 0x100;
        public const int WM_KEYUP = 0x101;

        public void LoginWoW(IntPtr Handle, String aUser, string pUser)
        {
            Clipboard.Clear();
            Clipboard.SetText(aUser);
            SendMessage(Handle, 0x102, 0x16, 0x002F0001);
            SendKeyPress(Handle, 9);
            Clipboard.Clear();
            Clipboard.SetText(pUser);
            SendMessage(Handle, 0x102, 0x16, 0x002F0001);
            SendKeyPress(Handle, 13);
            Clipboard.Clear();
        }

        public void SendKeyPress(IntPtr Handle, int keycode)
        {
            SendMessage(Handle, WM_KEYDOWN, keycode, 0);
            SendMessage(Handle, WM_CHAR, keycode, 0);
            SendMessage(Handle, WM_KEYUP, keycode, 0);
        }

Called:

            IntPtr nHandle = FindWindow(null, "WoW");
            LoginWoW(nHandle, "BoB", "Password");

Untested. WoWs installing to test, VB.net is download so I can test my conversion to vb.net but it wont be done for a while. You'll need to add a few pauses in there.

Redlines won't work in WoW.

Manually sent ctrl down, then v down, then v up and then ctrl up instead of what I've got written.

[kills]

Public Class Form1

    Private Sub RunWoW_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunWoW.Tick
        Shell("Wow.exe")
        LoginTimer.Start()
        RunWoW.Stop()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RunWoW.Start()
    End Sub

    Private Sub LoginTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginTimer.Tick
        SendKeys.SendWait("PASSWORD HERE")
        SendKeys.Send("{enter}")
        Entertimer.Start()
    End Sub

    Private Sub Entertimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Entertimer.Tick
        LoginTimer.Stop()
        SendKeys.SendWait("{enter}")
        Entertimer.Stop()
        Me.Close()
    End Sub
End Class

I'm sure somebody can do it better, and i'm positive theres a better way 2 do it then this, but it works for me
RunWoW timer is 2500
LoginTimer is 1000
Entertimer is 4000
---
Also, the timers interval should be changed 2 your computers speed.. Takes about 1 sec 2 login, then another sec 2 press enter.