CarNa遊戲啟動器 改製

2 K3 B/ e5 \, r6 `1 c5 T
1 Z1 `' E! W# r* `* B0 M- s【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
【檔案大小】：1.13 MB
【檔案載點】：>>點此<<
$ b. C, r0 @* b4 {  }9 k$ ~; S【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：

% G6 N' f$ u9 x% v% ^8 R【原始碼】：

1. Public Class Form1
   / G% K* N4 \9 g& V
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   + \+ z- m4 f7 a, E
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   , ~. X/ {9 Z/ ^; m7 M+ Z
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   ; ^& T( @: u% @, r, }0 O5 S2 U
5.         Call Reset()
   1 r1 G- w7 A* w. ]$ d  P7 C7 E
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   4 O3 v$ \% F( ~; ]6 h
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
     J" T3 X: `9 V* Z
10.         Else
    
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    % F4 L4 `* L0 L3 a- h5 y% K
12.         End If
    
13.     End Sub
    / o+ Q  j- e( y9 h- X9 @5 N) C" }! K
14. 
    
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    8 r+ b9 Z& X9 p. R% C. ?7 V
16.         Button1.Visible = False
    
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    
19.         Button4.Visible = False
    
20.         Button5.Visible = False
    3 B& R7 X# G4 D7 |' Y: d
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    ! u  H! h, C2 c) z: s4 s' ~
23.         Label1.Visible = True
    % V0 u) F# l$ C) ]0 l
24.         Button8.Visible = True
    ; u" a8 `5 v; p' `+ E0 F4 _6 }
25.     End Sub
    
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    6 w0 M5 ~; c; R' o
28.         '帳號註冊
    
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    
30.     End Sub
    
31. 
    ! v" b; y( w2 h, G6 f. z- V
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    6 U$ X' y% T8 z7 S; s; V1 c# S
33.         '遊戲下載
    
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    " J& X# D9 h4 I- G5 e0 w* d
36.     End Sub
    
37. 
    # ~! ]5 v8 F/ L% o" N
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)
    
41.     End Sub
    
42. 
    
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    * F, ~" O  ~  b* [5 \! M
44.         '宣傳影片
    ( G' @: o9 u" P% d8 U; o
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    
46.     End Sub
    2 p: e  h5 S* P. E& p& N# S; ?( ^
47. 
    
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    # C9 \$ N+ Y$ P$ Q$ k0 r3 X6 S! v$ Z
50.     End Sub
    2 a3 N* ^5 `- N" z0 l* @) M
51. 
    3 {' @* W% ~) w3 Y
52.     Sub Reset()
    * K+ M$ L% t/ b4 a
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    7 U2 u6 h$ @( z+ S* c- W
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    3 s' q' a. g# `1 r; t: ^6 |9 w
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    1 [8 k1 g! z* m$ G$ t: [
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    1 {9 {5 v) g, A/ \: c/ j' p8 Z
61.         Button1.Visible = True
    6 E9 i( B! n6 \  q3 x" O6 |! C
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    " o1 I" K! o8 y$ e: }) |
64.         Button4.Visible = True
    ! M8 e4 P- a$ P. q
65.         Button5.Visible = True
    
66.         Button6.Visible = True
    4 Y& y; g2 w5 w4 k( |! |
67.         Button7.Visible = True
    ; @5 L3 Y4 a$ z. K1 `' n8 s
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    * M: d" `, e3 Z6 G1 X( `1 t
70.     End Sub
    
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    
73.         Call Reset()
    * |5 y9 K# p8 P1 o% @( ^6 O0 t
74.     End Sub
    * Z6 L& s8 b) r
75. End Class
    : T8 O2 [  n% Z7 N5 J

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----