CarNa遊戲啟動器 改製

# p7 f# L  W6 n4 p: r" W" V【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
) h; x  S/ C+ v1 G/ O【檔案大小】：1.13 MB
【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
' k! l, D+ N% j# y( j" ~! w; Z! o2 n# o【檔案資訊】：原作:小夏 改製:雪楓月舞
0 l* a( p% a; o5 J) u: ?【備註】：有任何問題歡迎在下方留言^^
) H/ |3 p5 ~, t) S; e/ w3 [, ?0 f【檔案內容】：
5 t$ s0 U) J0 `7 i  v' k7 k
【原始碼】：

1. Public Class Form1
   9 @- K+ K" s. `( Q9 ]7 w) S' s
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   * b/ {* z5 Z  M, w) B
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   % J% n% a% |+ n* N
5.         Call Reset()
   
6.     End Sub
   / s( D+ Z+ n" m  m
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   3 b0 x7 W5 v3 B/ v
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   
10.         Else
    # h# i, }4 E5 o# P5 X' T- _, X
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    0 q. a4 P7 s3 v* p: @! ]
12.         End If
    9 j, c! B) Y2 g4 a
13.     End Sub
    
14. 
    
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    : N& F7 h4 g. J0 D0 z0 M3 H  v+ c) a
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    7 e+ E1 t! t8 H) r( D
19.         Button4.Visible = False
    ! N) k' v6 x$ w8 g1 G8 r9 P
20.         Button5.Visible = False
    " K7 N+ ?# q0 x( v* H
21.         Button6.Visible = False
    2 m" q" C9 q8 ^" S8 {
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    
24.         Button8.Visible = True
    # g! _% y( W$ k( K: k: E
25.     End Sub
    2 F6 [, Z" P3 ^
26. 
    . c! |+ z* {! x  S4 J) {
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    3 b1 ~& L) q3 |9 t
28.         '帳號註冊
    & M8 a* K' V1 `
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    
30.     End Sub
    + u0 M3 l  W& L
31. 
    
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    
33.         '遊戲下載
    $ [: M& p) k0 L! ^9 \. d
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    
35. 
    
36.     End Sub
    4 X% ^, b3 E9 v: `2 l# i
37. 
    * k6 ~5 H' f. v# j7 C) g0 f% K
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
    : b; l2 |' d" G; g: d6 P1 d* n( S
42. 
    1 _" \7 `( {+ {5 ^6 M( V% o2 ]
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
    2 e3 l) _& U6 Y; Q& b) \
47. 
    3 d6 R7 g& t( ?% x
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    ( X3 E) N& C: r6 A4 H
50.     End Sub
    0 G8 M# S6 K" ]/ W9 _9 l
51. 
    ( d! p$ ]$ E, m  X
52.     Sub Reset()
    
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    7 E6 F, W% J1 G' o& C8 t' L4 }
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    3 e) y6 L  v$ H
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    ) \6 E2 V3 O# R( A
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    4 u# s1 i+ ~3 T0 L) \& X$ F
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    # h/ A) K6 F5 I, d9 B
61.         Button1.Visible = True
    + V0 }6 S( {. T0 |: h0 ^; \; u
62.         Button2.Visible = True
    7 ^3 v. ~6 _$ n2 h/ ~
63.         Button3.Visible = True
    2 X2 S3 N$ h9 A$ x5 K
64.         Button4.Visible = True
    
65.         Button5.Visible = True
    8 y: a8 o( b8 o' z4 o
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    ; R( x' p/ r$ E. R+ ]1 _
70.     End Sub
    " U1 x' n- n1 `/ d2 e
71. 
    
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    ! g3 W1 Q! c8 h( B% }. _) s
73.         Call Reset()
    ' B& r$ Y0 k( z; b6 l7 j
74.     End Sub
    , z0 H9 {: A  i
75. End Class
    

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----