CarNa遊戲啟動器 改製

( K2 A" a) L7 @$ r' f. n
【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
  Z9 ^5 J) u# |) M# _【檔案大小】：1.13 MB
9 l- c; d7 w2 o5 q8 A2 U! e【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
【檔案資訊】：原作:小夏 改製:雪楓月舞
5 ]; N! p2 V0 v, ~* I【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：

( r5 D. B+ ?5 R5 f- x  A  a! o【原始碼】：
6 _7 p9 s, i# p( d8 \/ U" q8 R

1. Public Class Form1
   
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
   ; @1 f0 L% n7 z! n0 x+ `
5.         Call Reset()
   # L: L$ H2 [0 B
6.     End Sub
   , @' }2 P# [7 s  ^
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   " S4 m/ k* ]+ k
10.         Else
    
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    . n: c: z* C) t8 w: a) t
12.         End If
    4 }+ b) C2 ]9 F- H* @  ~
13.     End Sub
    1 q/ V2 ^9 n# T, T' R* B1 J9 s
14. 
      o3 p8 A* Q$ w( G( _. N. ?0 {
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    - F, l7 ^7 L( b+ q1 }; Y9 N
19.         Button4.Visible = False
    ( j  o. h5 X6 X' D5 n3 H
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    5 P$ S, V" W2 ]$ |; n
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    , z8 |' Z6 E, V1 r
24.         Button8.Visible = True
    + c5 x, S: g* ], [* j
25.     End Sub
    
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    
28.         '帳號註冊
    + O& ^4 Y4 p/ }9 s& v" W; K
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    ; V0 _" U6 X* F7 ?- f; |
30.     End Sub
    4 o+ r# W% ]6 R' j* Q4 _4 F6 G
31. 
    
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    + a6 U1 {. X: A* @! @# E  m/ A
33.         '遊戲下載
    
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    1 @! x; S" t( p/ [( [: h
36.     End Sub
    . S4 U' O4 B* X" Y+ E" v
37. 
    % Z1 h  T% W0 t) y% w! Q* b. `) H
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    / V' G6 M6 b0 t
39.         '論壇
    ! O: i3 y# e4 Q0 j9 Q% [( j) y+ [
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
    
44.         '宣傳影片
    
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    
46.     End Sub
    
47. 
    
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    ; i7 k; ~$ j( f
49.         End '結束程式
    ! \/ n9 J4 s* F$ w
50.     End Sub
    
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
    8 T% ]* W8 A. F1 b
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    $ L* s! e. n+ S4 B* K/ Q4 ?9 q
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    , Z4 }% L" S! z
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    1 A( h. q3 o; k2 Q# v5 L" |. F
63.         Button3.Visible = True
    + s8 N2 e/ N2 B* O/ ~( R+ Q' d
64.         Button4.Visible = True
    . t3 {1 {0 W6 ~& M% x( e* u2 H/ N
65.         Button5.Visible = True
    ' \% ^; s2 S& I+ Z
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    6 U7 s6 f; D; n9 v
70.     End Sub
    & m& l% l* B) w" y1 T$ L/ s
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    
73.         Call Reset()
      Y& J& ^' R: I* k5 k
74.     End Sub
    9 [0 E% ~0 A* S/ c! b6 ^5 V
75. End Class
    

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----