ok here are my questions, first of all ill ask the shorter one first, ok with vb can you make bots for games (my game being diablo 2 LoD) and if you can, how would i go about doing that, and yes, i would like it to be a bot for the multiplayer to lv up my low chars. my second question is my friend emailed me his program for a chatting program, originally he had a text file telling him how to do it and he was going to email me the text file but something happened to it so he emailed me his program that has 1 error and i dont understand any of it, ill just put the code on and if anyone can explain it out or give me a site that explains it, i would really appreaciate it
heres part of the code
<auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.1433
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.WinClient.WinClient.Form1
End Sub
End Class
End Namespaceheres the error part
Me.MainForm = Global.WinClient.WinClient.Form1and heres the next part of coding
Imports System.Net.Sockets
Public Class Form1
Const portNo As Integer = 500
Dim client As TcpClient
Dim data() As Byte
Private Sub btnSend_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnSend.Click
SendMessage(txtMessage.Text)
txtMessage.Clear()
End Sub
Public Sub SendMessage(ByVal message As String)
Try
'---send a message to the server
Dim ns As NetworkStream = client.GetStream
Dim data As Byte() = _
System.Text.Encoding.ASCII.GetBytes(message)
'---send the text---
ns.Write(data, 0, data.Length)
ns.Flush()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Public Sub ReceiveMessage(ByVal ar As IAsyncResult)
Try
Dim bytesRead As Integer
bytesRead = client.GetStream.EndRead(ar)
If bytesRead < 1 Then
Exit Sub
Else
Dim para() As Object = _
{System.Text.Encoding.ASCII.GetString( _
data, 0, bytesRead)}
Me.Invoke(New delUpdateHistory( _
AddressOf Me.UpdateHistory), para)
End If
client.GetStream.BeginRead( _
data, 0, CInt(client.ReceiveBufferSize), _
AddressOf ReceiveMessage, Nothing)
Catch ex As Exception
End Try
End Sub
Private Sub btnSignIn_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnSignIn.Click
If btnSignIn.Text = "Sign In" Then
Try
'---connect to server
client = New TcpClient
client.Connect("127.0.0.1", portNo)
ReDim data(client.ReceiveBufferSize)
SendMessage(txtNick.Text)
'---read from server
client.GetStream.BeginRead( _
data, 0, CInt(client.ReceiveBufferSize), _
AddressOf ReceiveMessage, Nothing)
btnSignIn.Text = "Sign Out"
btnSend.Enabled = True
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Else
'---disconnect from server
Disconnect()
btnSignIn.Text = "Sign In"
btnSend.Enabled = False
End If
End Sub
Public Sub Disconnect()
'---Disconnect from server
Try
client.GetStream.Close()
client.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
'---delegate and subroutine to update the TextBox control
Public Delegate Sub delUpdateHistory(ByVal str As String)
Public Sub UpdateHistory(ByVal str As String)
txtMessageHistory.AppendText(str)
End Sub
Private Sub Form1_FormClosing( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs) _
Handles Me.FormClosing
Disconnect()
End Sub
End Classany help appreciated