CarNa遊戲啟動器 改製

【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
【檔案大小】：1.13 MB
7 p2 N9 S' Q9 f/ }8 w【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
) U* h. t9 b4 c5 h【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
, C( D" y  {, t【檔案內容】：
7 D9 V. K- a  Y) r: w9 l
【原始碼】：
  v+ h& O6 a+ ?# K5 {

1. Public Class Form1
   : W9 y7 X& ~* L
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   ' ~& R% b! L- V1 Z
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Call Reset()
   
6.     End Sub
   : l  C: V9 h- @
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   # F3 F8 k/ R; Q: b; T+ }
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   * [* h7 Y# `8 C+ W. {0 R4 b* K1 q
10.         Else
    & t( i& ?$ U+ F2 L" ~/ x9 `4 b+ G) {7 H
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    ' ^+ o( z* U) M4 |6 Z
12.         End If
    # {8 M4 H+ S2 _( ]& ?& f
13.     End Sub
    8 Y' M/ h. R% k, p! A+ N$ I
14. 
    7 X' E- ~& g; c/ ?% J5 `
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    & Q# o4 H' y/ J, i
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    
19.         Button4.Visible = False
    , X. }, T$ K' I# G8 f- J6 u
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    : [; Y" y" t9 {3 }  E0 u
22.         Button7.Visible = False
    - N& N5 o4 e0 l0 S" T; y$ v
23.         Label1.Visible = True
    
24.         Button8.Visible = True
    $ h# a2 A6 B6 a3 h
25.     End Sub
    
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    , r. Z. L! G9 s7 c3 t+ E  H
28.         '帳號註冊
    
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    0 p$ v8 N; A; O" i
30.     End Sub
    , S/ O1 U/ K; Z, I+ v
31. 
    
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)
    
35. 
    
36.     End Sub
    3 F2 I; m: y- N6 k0 [- }
37. 
    : D: q0 c) J2 }% n- M1 A3 j3 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)
    7 w8 Q! O2 Q& O# x; N$ d9 _
41.     End Sub
    
42. 
    9 \, y, S# p$ @. x" ?( D9 G+ x: d/ [
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    4 A* B1 J* ~" @4 E
44.         '宣傳影片
    ; K/ }2 r, l. ^: m( h/ e
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
      u8 d5 q  a2 }/ M
46.     End Sub
    
47. 
    
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    0 ]$ s% S- {+ b0 ^+ I7 H
49.         End '結束程式
    5 V2 ]( w" w4 ^4 s- i  v# a+ ]" G
50.     End Sub
    
51. 
    7 G3 L1 r; D6 m! f' Q
52.     Sub Reset()
    " F5 ^9 x/ V' H! f. p8 V
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    & O6 T; m# r  X. W  U9 K) ]" c
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    , q2 ]6 T$ W1 i$ a8 C% H% s! k# l( K  W
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    " n# j6 l9 f# {6 k; d
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    , q# @, J, ?) ~+ @
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    + O& ^. C% ], h: l/ D
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    ) i1 s& M* @5 h) W% Y
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    * o" ]- V8 G" K4 }7 W9 s  m; ^. w
63.         Button3.Visible = True
    8 i4 s8 t- z# F: x/ B7 N
64.         Button4.Visible = True
    / G* M% Q5 f, x# e& `
65.         Button5.Visible = True
    
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    ( W  O3 \* u2 k, q) u
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    
70.     End Sub
    
71. 
    / o9 u+ f- f& G1 ~8 x# E8 \: F
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    
73.         Call Reset()
    4 v! I& F8 h+ D+ J8 q# T
74.     End Sub
    
75. End Class
    4 |$ k( e3 E6 b% B- ?

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----