CarNa遊戲啟動器 改製

# Y$ U, g' S4 D2 d7 m. n% t8 x4 _【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
% Q, Q2 \' h$ N% ]# X* y【檔案大小】：1.13 MB
% A5 {* t' M+ q) l4 r【檔案載點】：>>點此<<
【掃毒報告】：>>點此<<
! q2 [& O1 d% G" u6 b+ I【檔案資訊】：原作:小夏 改製:雪楓月舞
【備註】：有任何問題歡迎在下方留言^^
9 q: ]& A3 J* ]: Z4 W, f【檔案內容】：

8 s) h% h; m7 N【原始碼】：

1. Public Class Form1
   
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   / B, g; J9 o7 Z8 d6 }
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   - Q) C+ N$ w8 |. o* x# L
5.         Call Reset()
   6 l% C+ e7 C  f( k$ _/ n3 ?
6.     End Sub
   
7.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   / G8 h( M' m5 m! I2 r
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   % ]# Y# s2 m& F+ y4 ?: e
10.         Else
    
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
12.         End If
    * O4 c# V% Z" T) l8 B
13.     End Sub
    6 c* w% f" j1 T
14. 
    / K9 j1 U: K" L; T
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
16.         Button1.Visible = False
    
17.         Button2.Visible = False
    0 H0 g- S  q- @3 N) S7 o2 ^
18.         Button3.Visible = False
    
19.         Button4.Visible = False
      y9 H, D! z. x5 s: G* T$ E( B9 t
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    " R; u3 w! y) K) \8 B: S) `
22.         Button7.Visible = False
    
23.         Label1.Visible = True
    + r+ q: g9 `  ~' c
24.         Button8.Visible = True
    3 B1 {% E! b2 m0 f) e! p
25.     End Sub
    # Y' U! G- T8 ?* R1 }7 b
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)
    5 I: w# D% I, U% d
30.     End Sub
    
31. 
    
32.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    ' X/ z& z' Z8 ~  A, N
33.         '遊戲下載
    4 z- \3 e& h  Q4 v7 k
34.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/uc?id=0B_JKhdsxGLKRSE42TXJQbDRicWs&export=download", vbNormalFocus)
    , H' @7 ^% R" l  `
35. 
    
36.     End Sub
    % {+ |  J% `, Y% u& [# ?, o
37. 
    2 G9 l' b8 x* X: m5 E3 N5 b
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    
39.         '論壇
    " k3 M  j* t& B8 C. w
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    ( F! M6 F, @3 N$ ?
41.     End Sub
    
42. 
    : [" m4 `8 h9 j
43.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    , U9 @" ]% e$ r% X
44.         '宣傳影片
    ' y5 U- n. [0 t* a
45.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://www.youtube.com/watch?v=K_bciqPTBWg", vbNormalFocus)
    / ^* {3 B: Y" w! X4 _8 z2 A2 }
46.     End Sub
    
47. 
    , B9 X; |  t9 \* T" D3 S3 B
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    . w+ X7 E* b  J
49.         End '結束程式
    ; k: ?5 J  ^1 u- X8 T8 c. C
50.     End Sub
    + g- R  a% M1 [  O
51. 
    ' P( ]' A5 ~9 A# z/ F9 {2 ~6 Y
52.     Sub Reset()
    , t& \0 X  F& v* f2 n$ Z
53.         Button1.Left = (Width - Button1.Width) / 2 - 10
    
54.         Button2.Left = (Width - Button2.Width) / 2 - 10
    0 J/ ^5 _  x+ c4 U7 E1 W
55.         Button3.Left = (Width - Button3.Width) / 2 - 10
    4 d# s; ]' k/ E: Z7 [  k
56.         Button4.Left = (Width - Button4.Width) / 2 - 10
    # C6 V6 E3 W6 Q4 `! Y
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    ) W5 i$ [: i1 F5 g5 L; ]8 u
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    
63.         Button3.Visible = True
    6 d5 C0 g) d" K6 C$ H% U0 i
64.         Button4.Visible = True
    + y  {( `! \- Z
65.         Button5.Visible = True
    
66.         Button6.Visible = True
    
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    6 ~$ ^* f: y* m/ }
69.         Button8.Visible = False
    
70.     End Sub
    
71. 
    & X8 v0 a* e- Y9 w
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    
73.         Call Reset()
    8 P. a  h# i! B& y7 _$ G
74.     End Sub
    
75. End Class
    

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----