CarNa遊戲啟動器 改製

& H6 s2 u. {% u5 d7 z% X9 u* z. i" V
4 h/ }$ E, d7 @* ~% Z" h( b【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
【檔案大小】：1.13 MB
, S1 }# M8 z; ?【檔案載點】：>>點此<<
% R; T5 N$ J- w. H$ L【掃毒報告】：>>點此<<
+ J7 C" ]6 ^( z0 [3 g+ E【檔案資訊】：原作:小夏 改製:雪楓月舞
( x2 I9 L9 j( u' ?0 A9 e! ~; F6 P) x8 C【備註】：有任何問題歡迎在下方留言^^
! X2 N4 p# `! \0 w) |3 I【檔案內容】：

【原始碼】：
1 I8 @# `5 _. y" v7 Q

1. Public Class Form1
   3 R: m1 ^) w: S. ]# \3 r$ ]% U( l! x3 R
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   $ I4 x. T* y$ P# z" X
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   4 a" O  n7 y9 P  f$ |3 P& a+ f5 l4 ~
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   ! ?9 ~9 |# m) x
5.         Call Reset()
   + Q. ^. i) q% j" A9 E$ n# e
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   + `- Q+ _3 T6 f$ m$ x
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
     c0 n% z0 B& }) _
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   " \7 z. u; m+ B' p8 I6 x, x
10.         Else
    3 a8 {0 a' m& M3 }  Z  g9 n
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    & @( y: O/ _0 }2 ^. y" z  s
12.         End If
    
13.     End Sub
    # H6 w) y5 M4 B& T
14. 
    
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    : F, ^5 v8 J& y* s. w, b7 s
16.         Button1.Visible = False
    
17.         Button2.Visible = False
    6 y+ z1 x- t: r
18.         Button3.Visible = False
    
19.         Button4.Visible = False
    
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    $ m6 \8 }' L* W
23.         Label1.Visible = True
    
24.         Button8.Visible = True
    5 _. i0 a$ H$ F; `
25.     End Sub
    ! S! s  G2 N# `  k
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    
28.         '帳號註冊
    
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    
30.     End Sub
    " D4 y! L  F& ]. K4 n+ g; B8 t1 E
31. 
    4 }4 g  m2 Z7 Y* K
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    
33.         '遊戲下載
    & z( w* F' a3 P; F+ ?
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    
36.     End Sub
    
37. 
      l* _8 P, i4 t; a, r; i
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    
39.         '論壇
    , k. d) }* W; G
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    4 ^/ L! s9 @+ Z9 D* I
41.     End Sub
    8 F" l; g" X" D, M. [
42. 
    + _- x+ Q2 @( ~' T2 @
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    * y  D% @& K- e  W( W
44.         '宣傳影片
    - h/ {8 u+ G  N' w2 z+ a
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    
46.     End Sub
    " ~( ~9 E+ P! u
47. 
    ' z: d3 Y9 y# o: y6 g. U: F4 i  J  `
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    6 [( z! s2 n) J% ^, a
50.     End Sub
    + E: Z3 d- U+ |) P$ J  ^
51. 
    
52.     Sub Reset()
    
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    
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
    
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    ) R6 d0 b8 O5 Z9 d; O# u
61.         Button1.Visible = True
    1 k+ c+ \, V( f0 ^* j
62.         Button2.Visible = True
    2 Z5 F% c9 W+ s% E4 Y. D' s- R
63.         Button3.Visible = True
    * V2 W1 y9 i% k& B) o0 Y4 D7 W4 T# s+ q
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    ' [# r$ n; B2 `! J
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    9 A6 n9 U* ?$ b" z( ]
68.         Label1.Visible = False
    0 g  g0 u! f4 n  O; L0 J
69.         Button8.Visible = False
    9 f( E7 N% r' Y! p( D" W
70.     End Sub
    
71. 
    3 c* R1 \" ]1 A% V2 {1 l( I7 l$ j* e
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    ' Z1 x* a( q7 x: |2 F. x$ C
73.         Call Reset()
    ' u( W" h( S6 I: X( {: ?1 D3 `1 i
74.     End Sub
    : _+ o0 m- R, Y9 l9 P5 \! z, c0 \
75. End Class
    ' S( d* L. G7 ?8 f& h) n

複製代碼

共收到 0 金錢

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----