CarNa遊戲啟動器 改製

7 Y. x- V$ {+ u& ?% o
【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
【檔案大小】：1.13 MB
【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
) \( P% I% _) y6 Y3 F3 ~【檔案資訊】：原作:小夏 改製:雪楓月舞
2 x. j6 R% @+ w7 Z) y6 }【備註】：有任何問題歡迎在下方留言^^
! l. K% ~- `, \. H9 R0 g【檔案內容】：

% e4 D; |9 d3 x3 b【原始碼】：

1. Public Class Form1
   8 _0 D, I( u! G! k) t, [3 U2 ]' n
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
   
5.         Call Reset()
   
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   / n" K" x4 T" U, f: q
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   0 N) u# ~7 \5 w) W0 A) ]
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   7 b+ L6 M, X7 {$ }  ]) K8 V
10.         Else
    7 p9 ~, f  Y9 P
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    8 W! ~# k# a- p$ h5 `
12.         End If
    
13.     End Sub
    
14. 
    
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    ' ^0 ?3 K. S$ _/ j5 m4 k& t
17.         Button2.Visible = False
    ) `0 o; A# P' d5 \! m1 u
18.         Button3.Visible = False
    3 S0 w* J- t' H7 O$ _5 S, z
19.         Button4.Visible = False
    0 k2 h! R) w; K# P$ y7 ~1 \6 `8 K
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    ! a$ _) r8 c2 A$ u
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    2 Q$ b" V; \% \1 {. i2 f6 U9 s* s
24.         Button8.Visible = True
    
25.     End Sub
    ' i3 N! P  c; \: l0 ]
26. 
    
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    - k3 c8 R9 }9 y* p8 S# g
28.         '帳號註冊
    
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    + m7 O& h6 x0 R5 m" L$ s
30.     End Sub
    
31. 
    / K( a8 U- g7 Z
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    % l# B- \! J( I/ g6 \
33.         '遊戲下載
    
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    & b6 w# K$ k5 W
35. 
    * U' O+ b# t! a; k( q4 S
36.     End Sub
    
37. 
    * |% t' q6 {& I$ X0 T/ V, K
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
      i' d. m, i8 c& Q4 k  h- H. q
39.         '論壇
    
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    
41.     End Sub
    " a( J4 s+ I' D/ A7 ~; N
42. 
    / Y2 [8 ]. g1 ?! ~4 K9 b* [
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    + u# ~/ e/ O  s9 c; N- l0 \
44.         '宣傳影片
    4 j* c* \3 |8 i/ C
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
    
49.         End '結束程式
    1 L/ D' b5 G9 R/ w
50.     End Sub
    7 V3 ]8 A  s& m3 @& j% N: S
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
    ' u7 U: Y+ Q: R, N) D
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    : u8 y  {. D" x: y& p, D
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    5 q6 X$ l/ a6 k1 e
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    ; [! D6 C9 A! Y5 K2 S
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    1 U) R# m) i& h; \6 B
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    " B# O: e; R! x* {, r
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    
64.         Button4.Visible = True
    1 j# p% R- F8 z6 _
65.         Button5.Visible = True
    , F2 }  x: r" X6 G
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    9 s/ t1 m2 j  F0 r; V! p! ~* M
70.     End Sub
    
71. 
    0 C8 P" b9 t. O- ?
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    
73.         Call Reset()
    & U+ O# N) `; \1 w) }' e  B& e3 h
74.     End Sub
    # t, M8 j1 `1 I: E, @1 C
75. End Class
    

複製代碼

共收到 0 金錢

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----