CarNa遊戲啟動器 改製

4 b: y2 b/ |& i1 y- g
【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
6 t2 i( W9 p( X+ T8 s3 ~4 u' M【檔案大小】：1.13 MB
& f, R" v9 M( G0 m7 [( Q【檔案載點】：>>點此<<
% p5 _- M* i, m% n8 G+ t2 j* K; m' t【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏 改製:雪楓月舞
4 a- j4 S! o! T: t  V$ _【備註】：有任何問題歡迎在下方留言^^
. n- R, S, X/ s4 t* l【檔案內容】：
3 S  d" J/ i1 j6 ~& V
【原始碼】：
' l1 `- |' G* }; K4 E

1. Public Class Form1
   1 q- ~/ |" }/ A: n. j2 @8 K5 @
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
   " `& `  {/ J  j. |) P
5.         Call Reset()
   
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   ' a! A! k/ @" w; m& b% Q8 z& _
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   
10.         Else
    & ^/ S) o" ]' n0 z. ?: d( k
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    ; P  e7 H7 u9 s' t* b* y
12.         End If
    
13.     End Sub
    
14. 
    9 \) y3 p* Y4 X8 g: U2 {* L- q
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    ; \, C3 b- q- Y. ~1 N, k& A% S& F
16.         Button1.Visible = False
    , L7 o/ s/ G" g; ^  E' M
17.         Button2.Visible = False
    3 j* L. U: ~. z) h0 y
18.         Button3.Visible = False
    ( I6 P  \+ ]+ K& B0 ~0 V+ J" W
19.         Button4.Visible = False
    3 ~; H' [/ j/ P' U# c
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    9 ~0 t) C5 n: h2 ?4 G6 K
22.         Button7.Visible = False
    * Z7 j( |6 S7 b7 `2 L1 v$ D. C! D
23.         Label1.Visible = True
    
24.         Button8.Visible = True
    : r/ @  r; g& V; Y, M# n
25.     End Sub
    " I$ l# l+ F' x9 Y. ~% Y
26. 
    ! M! _% w0 E) R4 M! v
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    8 e, c& C1 _5 R0 h0 b( w/ V# ^, n
28.         '帳號註冊
    - M7 v% [& O5 x4 y. U6 d
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    
30.     End Sub
      ^; N8 r* t6 ?
31. 
    
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    
33.         '遊戲下載
    / V' p2 T. [- a, Y% _; F
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    
36.     End Sub
    5 w6 g; ?8 |; A! K" l; _! ^5 F
37. 
    . ^, D. M* R' k7 E2 g* Z) Q
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    
39.         '論壇
    
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    2 M" k: C* n- O+ O. |+ ~! ?) J: N
41.     End Sub
    
42. 
    4 l5 v( O! U! z* L5 X8 r, O8 K5 ~+ ^
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    % G) g9 i6 a" U
44.         '宣傳影片
    
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    
46.     End Sub
    8 ]' ?& N, J0 P( o2 b: w
47. 
    ) B, H0 D+ j' u
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    $ x7 y7 ]  J& o) X5 o
49.         End '結束程式
    9 `1 e( X1 W) z( N/ v
50.     End Sub
    ) v# e3 K: ~% z4 x6 c3 T
51. 
    
52.     Sub Reset()
    ( t4 w8 k$ d( G$ E. f( A* _/ K
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    + B) B3 I7 Q! @2 D( L
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    ' f: L, a: Y: ^& C8 W8 {. v
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    4 r& v. q. [. O, W# [# y% ]% x
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    
61.         Button1.Visible = True
    4 l. d$ B" K+ N' j
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    
66.         Button6.Visible = True
    ( a1 s3 o9 g0 x
67.         Button7.Visible = True
    + Y. X3 B1 B3 f9 A, d# m
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    " t; [( @5 v# L9 B
70.     End Sub
    9 E( t* B/ J/ R
71. 
    * X9 ^% ^( }  d7 K+ s2 U
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    
73.         Call Reset()
    3 O& Y) p9 H7 f
74.     End Sub
    
75. End Class
    ; l& g. w% b8 r# Q: U8 i7 U& J

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----