CarNa遊戲啟動器 改製

【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
【檔案大小】：1.13 MB
- {$ g5 U. t, r% g) q& S* T【檔案載點】：>>點此<<
- ^7 n# |! [4 F【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏 改製:雪楓月舞
. U( _5 k6 a' R【備註】：有任何問題歡迎在下方留言^^
- K& j" Z5 ^! G. X【檔案內容】：

" \5 N/ T9 a/ d8 n+ e【原始碼】：
: h, w8 i- d" |

1. Public Class Form1
   : y" k: y; P# g4 X& i9 f
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   % G8 k+ G7 b& R$ [# Q1 Y
5.         Call Reset()
   8 |  p  l8 O; l. b. L
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   + a2 r& e8 t$ P+ Z! f% H
10.         Else
    
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    # e/ l; P% B# g6 ~1 E# \8 ]
12.         End If
    
13.     End Sub
    + y( p; v3 |" e6 w& |
14. 
    
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    ; h# ~$ Y5 O* X: j  D$ {, ]
16.         Button1.Visible = False
    % s& v6 w$ V% X% S' S
17.         Button2.Visible = False
    1 Z6 ^' S+ h6 Y7 h& H. j; u+ m
18.         Button3.Visible = False
    
19.         Button4.Visible = False
    
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    : _- O8 b! [5 x3 j
23.         Label1.Visible = True
    
24.         Button8.Visible = True
    - u2 i* W( A: N+ k. b! B5 q2 C
25.     End Sub
    7 b% `7 o5 g: E0 Z7 a
26. 
    2 ?+ ]! C8 }% o. e  r$ ~
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    
28.         '帳號註冊
    , c1 C( T+ U" r. J5 w
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    
30.     End Sub
    . ?' p% y8 Z- w9 F; I
31. 
    3 A6 G6 o$ G+ j& F, X- N1 o0 X/ \+ `/ ^
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    6 d% y+ b, C- r! m6 T# f
33.         '遊戲下載
    
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    - S7 @0 F( W6 b  K! \# |
35. 
    3 {1 n7 d9 k. H( u
36.     End Sub
    
37. 
    % K6 R4 {1 A0 c5 z5 q) x
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    $ p% t5 v6 `" z
39.         '論壇
    
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    
41.     End Sub
    ! H: \5 N- }! L' K% x' R$ L: v; r
42. 
    
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    
44.         '宣傳影片
    
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    1 i% \/ r4 w. _
46.     End Sub
      f2 Z/ i1 v& \$ T- f
47. 
    $ Y2 c  u2 o2 j% N$ I& ^" g+ D7 \
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    . S% o4 `" J8 n8 M5 B  B/ {
49.         End '結束程式
    # D# Q5 `: w' |) d
50.     End Sub
    - l9 Z0 s9 S0 v/ x
51. 
    
52.     Sub Reset()
    7 @0 ~9 ^7 u4 G3 Z1 _! r
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    % L7 v, ^2 y0 B3 ?
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    ! C6 ^$ }: G$ C, P* g+ q
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    ! h  Z2 f! G5 z- C  L% G
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    3 a& Q" T) B. F
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    4 v5 I# v- {) @+ \5 l# c5 L
63.         Button3.Visible = True
    
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    ; i$ e, y* m( ~: c3 X8 C
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    5 g7 ^  K, Z6 {/ d' S
70.     End Sub
    1 P. s, B! V+ b( z$ U) `! b
71. 
    ; Q# W+ z- G0 {% y& {! o
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    % n! T' r7 p6 ^" u: ?! b
73.         Call Reset()
    * F' \1 K" ]/ ?9 p! ?: D' B! z. ?
74.     End Sub
    ' ?/ O! N9 M1 e' P
75. End Class
    / c- K  A% D! R: l) N6 r9 Z

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----