CarNa遊戲啟動器 改製

$ j# n' N; v, B6 o! v3 @/ F
【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
3 f' D  l% e  ^【檔案大小】：1.13 MB
! K8 N& a8 Y( P5 K8 Q【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
- [& Y$ z4 @4 v【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
" P- B0 d0 w7 _7 T" P/ p) K, H【檔案內容】：
% ]' e( ~0 z: U
【原始碼】：

1. Public Class Form1
     W9 _) A. ~' K3 A9 @3 G$ P$ n: `0 d
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   $ g" g! A, C! x' ^1 b7 w
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   , X! t  j0 F& K6 A* l' d  U
5.         Call Reset()
   
6.     End Sub
   " Y' t; {: ?, t* O
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   , \6 u( I6 O4 b* U- G  i; L: A7 P% Q- U
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   ( ^" r9 ^3 H% a& ^9 d1 j- h, O, n
10.         Else
    & o5 W% P0 a' [6 q; b$ ~( T& m
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
12.         End If
    / w) E1 o9 q4 t* ]1 f
13.     End Sub
    
14. 
    . v( n8 g) `; J
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    6 z$ z$ F+ g5 a) O. r: |! W
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    ' x" u3 d; S; V8 X: G
19.         Button4.Visible = False
    ! X0 z/ z, y4 @; E3 r! m( t
20.         Button5.Visible = False
    8 q6 h$ p2 m: n* t
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    0 u  d; B9 G( ], `$ Y
23.         Label1.Visible = True
    
24.         Button8.Visible = True
    
25.     End Sub
    ! a9 V' ]6 G9 [
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    
28.         '帳號註冊
    * R/ e  ~- R) ]! u# {1 t, T1 r+ ]
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    
30.     End Sub
    
31. 
    ) f7 ~2 ?* O: k* A& P
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    
33.         '遊戲下載
    
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    6 z: _2 L" y* R4 F
35. 
    
36.     End Sub
    
37. 
    5 I1 E7 P1 k7 G3 h" a
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    
39.         '論壇
    3 G% Q9 d) }; C7 N0 b0 A) J
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    % q0 {0 m5 I& U
41.     End Sub
    - i; X# \8 J: h, b
42. 
    3 n4 z3 C' }7 {4 C, V+ G
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    3 ~, D4 I, A' ?8 [
44.         '宣傳影片
    9 B0 w: O( L2 m* k- |$ ~3 |% D" |
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    6 G% y: b+ \$ Z3 b/ I0 B! z. V7 k3 J6 B
46.     End Sub
    7 U2 y8 {8 o4 B# _, s
47. 
    9 R' y  G% o& }. q; V
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    9 T7 ?3 |2 w$ T; E3 u/ [* ]
49.         End '結束程式
    
50.     End Sub
    
51. 
    
52.     Sub Reset()
    
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    8 ^  h& f9 S; D: o& c
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    0 j4 e! \5 O% W( m! T% T0 y& e
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    + o' W, f0 M3 i+ n+ X
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    2 K* P3 M0 t& i8 ~. X; n: M( J' ^
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    / _* c3 i7 T# ^* X2 ^4 U, x
63.         Button3.Visible = True
    
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    7 I! T% i$ X5 N2 P& }7 v8 {& t
69.         Button8.Visible = False
    
70.     End Sub
      K+ y+ k2 U+ z; c0 T
71. 
    ' @4 h, e1 w$ Y; _
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    0 @4 P' r5 ^6 g* f7 l
73.         Call Reset()
    # d9 [; V0 G" x, r! O
74.     End Sub
    / b$ n" V. X6 F9 o
75. End Class
    

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----