CarNa遊戲啟動器 改製

- V) s# @, ]8 M, L
6 H# a5 K% `4 V【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
" Q+ ^1 }3 m1 C  {9 N+ c【檔案大小】：1.13 MB
/ g& G7 Z: N+ c6 ~' ^+ M2 S【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
& G6 z7 m! l; I% z3 N, l【檔案資訊】：原作:小夏 改製:雪楓月舞
! ?9 R1 J. E$ G: O+ k& M【備註】：有任何問題歡迎在下方留言^^
【檔案內容】：
& g/ M7 w& B* |2 Z) I. U& ^+ P
【原始碼】：

1. Public Class Form1
   $ l$ k# N- U0 i% e
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   - @3 e  _( _3 e. n6 B
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Call Reset()
   & I/ W" ~& L2 w% R5 N3 E
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   , l. F9 W" {, U! G- j  b3 [
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   ; ?. d. w8 W: {) }7 X: J# [4 ^
10.         Else
    / N$ z& ^! x% e/ c
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    ! F/ G6 n, i5 c' I) L4 _
12.         End If
    
13.     End Sub
    
14. 
    3 A6 L/ s% d$ a( Q( }5 g! @
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    7 }& h$ i; u( X0 m1 Q
16.         Button1.Visible = False
      I+ F% L  _1 g" E& V
17.         Button2.Visible = False
    0 j. U/ {) z) |) B# v: |, K) N4 _
18.         Button3.Visible = False
    
19.         Button4.Visible = False
    
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    ! @$ h+ x4 p( P5 w' {( @6 K
22.         Button7.Visible = False
    ' D8 _7 ^8 i- A* {  H: d
23.         Label1.Visible = True
    ) k4 s# M  v) C6 J9 ?$ x
24.         Button8.Visible = True
    
25.     End Sub
    0 n# j6 o4 y8 R8 E6 u/ ^
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
      c9 M! J' w/ @. o- b5 A* ~
31. 
    ; ~: r: E/ ^6 |# O- e4 A4 I  X
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
    2 b% l4 H6 w! W/ i: {
37. 
    
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    
39.         '論壇
    ; p# H: h" i5 c, t
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    2 J% @$ S. J" ^$ l
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)
      z" i" g- C' O4 m- i% d
46.     End Sub
    
47. 
    7 J$ ~5 M9 n" j/ ~
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    
50.     End Sub
    
51. 
    8 R: A! M& m  K' l3 u& ~
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
      _$ r' @+ x7 O0 X0 C
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    * j. X& o% p0 v: f; G' F8 |
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    & `$ F7 Y) K9 s
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    ! c3 Q9 h" L2 c
66.         Button6.Visible = True
    1 y, J- R9 _0 k
67.         Button7.Visible = True
    9 J) B. }& R0 R" J, d
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    " y3 |0 A9 @! V* `& L
70.     End Sub
    
71. 
    , o+ F2 A9 O' D; V4 t( {# J4 P
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    ) Y0 |% n  p! C/ R9 q- K8 d' }
73.         Call Reset()
    
74.     End Sub
    1 e, w# H! Q8 f- }  Y) J
75. End Class
    , D- m: s3 F& H

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----