CarNa遊戲啟動器 改製

/ D6 `3 ~" F% P! c) t
  O; n  v; B  ]1 N7 u: l3 W【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
" z7 @1 O, o9 U5 p7 {, O, X【檔案大小】：1.13 MB
" d1 w1 l; p/ r& W$ ?0 O【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
/ u! \* Y# Q1 f3 |5 w【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：
, |( \' s: M3 ?+ ]
& {9 c9 g0 f( b6 s7 K+ Y( W【原始碼】：
$ `6 }+ r3 O- ^

1. Public Class Form1
   % t) y" d5 w6 t3 Y
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   8 b1 `& z- v" N. g$ m6 ^
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   . N; w& ^  k) k* r& X" A- E! e1 F
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Call Reset()
   1 ~8 n8 e; u: I; z
6.     End Sub
   ; G. }4 g2 E# \, d+ P
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   ) P8 q+ H: ^8 g3 @3 d- L: j
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   7 m4 O0 w% ~; l" ^3 O2 S1 H
10.         Else
    + F) V: r# o  p* Z& {- k
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
12.         End If
    
13.     End Sub
    0 X1 m! b7 r/ a
14. 
    6 G6 ^8 Z+ F$ r# q' k+ s5 P7 |2 a
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    
17.         Button2.Visible = False
    8 l4 f1 A, W+ G3 s4 M
18.         Button3.Visible = False
    ' s9 q* {7 J: K+ n& m
19.         Button4.Visible = False
    0 s! D$ f$ d5 h. O/ Q. I
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    
24.         Button8.Visible = True
    . r" ^) Z/ l$ e
25.     End Sub
    # }5 I( D2 j( i" h
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    , T+ T$ B$ a" `0 _) G3 |7 ~  F7 h
28.         '帳號註冊
    ' t3 }% @0 W% u: ?- M
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    
30.     End Sub
    - M) I- [# R" ?, }8 M6 Y. D9 q
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)
    2 N) u- W  E0 T5 L$ b- x8 E
35. 
    . x; B7 {0 M; l9 c
36.     End Sub
    9 T4 n2 H- `- A
37. 
    2 ~6 F& m% \! V  z0 t6 v# a$ B
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
    6 a3 |2 L( b% v" z( t1 B3 s
42. 
    
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    3 c3 Q/ z* P3 R/ V# M  i
44.         '宣傳影片
    1 W6 {* i+ x0 q! D6 a6 i
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    ) t: `, k( W& F& c
46.     End Sub
    
47. 
    - f) y  O7 F8 ^
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    8 Y! v% a: p2 Y2 l
49.         End '結束程式
    
50.     End Sub
    
51. 
    
52.     Sub Reset()
    ( y9 v  @# @5 I  s. a
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    ! }$ h; u; r* x( X3 i$ `! u. T
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    + I* U9 u- O, n' L
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    5 Z/ H* R5 ]* ~0 U' Y# ~
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    + O* v+ A7 I  x9 k5 S# t4 f4 o
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    0 x7 z& }( s8 U# c* Q* v4 t. T2 ?& j. b
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    1 s4 n4 L- Q7 ~2 x
61.         Button1.Visible = True
    / _8 ?& j" z: h* e1 n
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    % R+ f3 H, D/ |* o$ s* i3 c/ ]
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    
66.         Button6.Visible = True
    ) O6 r( s1 |2 ?( T% ~
67.         Button7.Visible = True
    1 f; B  t$ Z, H# G! y% w: I
68.         Label1.Visible = False
    + Q" s3 C) z/ Q) u8 Y( p) @) Q
69.         Button8.Visible = False
    % X  v6 n, k; @4 h; _
70.     End Sub
    5 y2 |$ [5 H1 j9 c  H9 H, i* P8 p
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    + q- E6 j& Z# f0 D" n  c2 |
73.         Call Reset()
    3 R: x/ l  L+ s
74.     End Sub
    
75. End Class
    1 d! B4 a" [9 `: V2 E  O9 T- j

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----