CarNa遊戲啟動器 改製

8 ~. a& \% q! I: \. y
! y* _6 _2 k/ V% l【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
  K2 ?7 t/ u4 J2 X) }% f【檔案大小】：1.13 MB
【檔案載點】：>>點此<<
# v. q2 K% f. ]. E# s; O【掃毒報告】：>>點此<<
$ T5 d! [  o4 K5 l/ U9 R【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
' Y5 n$ M8 W) I# l+ a! A" ]【檔案內容】：

; \% ?$ @3 l( H: |. C9 t【原始碼】：
  w* R% M. R% {* P+ d# n$ H4 u

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

Public Class Form1
    Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
    Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call Reset()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If My.Computer.FileSystem.FileExists("localhost.exe") Then
            Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
        Else
            MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Button1.Visible = False
        Button2.Visible = False
        Button3.Visible = False
        Button4.Visible = False
        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False
        Label1.Visible = True
        Button8.Visible = True
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        '帳號註冊
        Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        '遊戲下載
        Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        '論壇
        Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        '宣傳影片
        Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        End '結束程式
    End Sub

    Sub Reset()
        Button1.Left = (Width - Button1.Width) / 2 - 10
        Button2.Left = (Width - Button2.Width) / 2 - 10
        Button3.Left = (Width - Button3.Width) / 2 - 10
        Button4.Left = (Width - Button4.Width) / 2 - 10
        Button5.Left = (Width - Button5.Width) / 2 - 10
        Button6.Left = (Width - Button6.Width) / 2 - 10
        Button7.Left = (Width - Button7.Width) / 2 - 10
        Button8.Left = (Width - Button8.Width) / 2 - 10
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = True
        Button4.Visible = True
        Button5.Visible = True
        Button6.Visible = True
        Button7.Visible = True
        Label1.Visible = False
        Button8.Visible = False
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Call Reset()
    End Sub
End Class

複製代碼