↖Ι n V a D e R ╮

即時通8.0 ~ 9.0  多開 教學

                             免程式歐～
                                                     看這歐～

１.   點 開始 (左下角的)
                   
２.   按 執行 

３.   輸入  regedit  

４.   就會 跳出   登錄或編輯程式

５.   在 左邊 找  HKEY_CURRENT_USER 

６.   然後  在HKEY_CURRENT_USER 的左邊 按一下+ 

７.   在裡面找 SOFTWARE

８.   一樣按個 +

９.   在裡面找 YAHOO

１０.  一樣按個 +

１１.  在裡面 找 Pager

１２.   一樣按個 +

１３.   在裡面 找 Test

今天做了 井字遊戲

需要 都不用

程式碼如下

Public Class Form1
Dim Turn As Integer = 1
Dim w, h As Integer

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
w = Me.ClientSize.Width \ 3
h = Me.ClientSize.Height \ 3
Dim g As Graphics = Me.CreateGraphics
g.DrawLine(Pens.Gray, 0, h, w * 3, h)
g.DrawLine(Pens.Gray, 0, h * 2, w * 3, h * 2)
g.DrawLine(Pens.Gray, w, 0, w, h * 3)
g.DrawLine(Pens.Gray, w * 2, 0, w * 2, h * 3)
g.Dispose()
End Sub

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
Dim g As Graphics = Me.CreateGraphics
Dim x1, y1 As Integer
If e.X < w Then 'e.X取得滑鼠的X座標
x1 = 0
ElseIf e.X < w * 2 Then
x1 = w
Else
x1 = w * 2