CarNa遊戲啟動器 改製

# t3 o9 i( U3 x, z( e' W
6 }1 d1 v& |5 P. u5 h9 ~5 e4 Q【檔案名稱】：CarNa遊戲啟動器【檔案格式】：exe
【檔案大小】：1.13 MB
2 M1 e0 s7 r% ?; s9 k【檔案載點】：>>點此<<
3 W" ^$ v. ?9 z2 m. u" G3 {/ u, Q【掃毒報告】：>>點此<<
) l$ V! |5 l) J& M( B& g7 P【檔案資訊】：原作:小夏 改製:雪楓月舞
* b; ]/ D( K* k/ q! o0 S, f【備註】：有任何問題歡迎在下方留言^^
* A! x" j- G) s6 h$ m) p【檔案內容】：

【原始碼】：

1. Public Class Form1
   
2.     Dim IP As String = "******************" '為保護伺服器不被有心人士 DDOS 不公開 IP
   " N& d( G4 U& p, X  s
3.     Dim Port As String = "****" '為保護伺服器不被有心人士 DDOS 不公開 Port
   7 i& o. n9 W9 V+ Y
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
   , P) V! K$ |) o, V
8.         If My.Computer.FileSystem.FileExists("localhost.exe") Then
   ! T% n  |  F& E# W; G4 y8 s
9.             Shell("cmd.exe /c " & "Start localhost " & IP & " " & Port, vbHide)
   
10.         Else
    ( d7 [8 O" w8 X) }$ j4 n0 \5 `
11.             MessageBox.Show("無法偵測到 localhost.exe" & vbNewLine & "請關閉防毒並將資料夾排除後解壓縮 localhost.rar", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
    4 D1 J  Z( T9 J6 T, u/ j3 v
12.         End If
    0 Z' @* S* L8 Y( W. v/ u) C
13.     End Sub
    
14. 
    
15.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    / f2 E9 o7 I  ^6 m
16.         Button1.Visible = False
    : I! M- i+ _, `+ F1 w5 }# f$ \
17.         Button2.Visible = False
    
18.         Button3.Visible = False
    
19.         Button4.Visible = False
    
20.         Button5.Visible = False
    
21.         Button6.Visible = False
    0 T" y  s& @8 R8 {3 I
22.         Button7.Visible = False
      Q+ E5 @" _4 V- U$ {/ p: h8 O$ ?
23.         Label1.Visible = True
    % A0 a& D( ~9 I( |" W
24.         Button8.Visible = True
      E% b# ]0 M* N6 [# A: b, K1 J
25.     End Sub
    0 m) L  p; h& K# ]) G+ d& Q
26. 
    , i4 E( E  Y, q+ C) u" b, [' r" x. A
27.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    8 a8 m. Y/ _0 A! W2 ]
28.         '帳號註冊
    1 r! v( g, v$ N  }# m
29.         Shell("Rundll32.exe url.dll, FileProtocolHandler https://docs.google.com/forms/d/e/1FAIpQLSfpphD3cDtFCiayoOidc1TE0GLHL6TquEsempTlMRQYN5hZ4g/viewform", vbNormalFocus)
    * m' |0 t. l' f8 r! E4 z
30.     End Sub
    
31. 
    9 S6 s6 }6 a) x8 k0 v4 ~
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)
    1 I4 J8 Y7 w1 Y
35. 
    
36.     End Sub
    
37. 
    
38.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    3 ^) V/ S: d+ t1 X$ @  y# V2 A
39.         '論壇
    
40.         Shell("Rundll32.exe url.dll, FileProtocolHandler http://twaicl.joinbbs.net/index.php", vbNormalFocus)
    ) X6 }/ Q: m/ z/ x' U. N% ]" s
41.     End Sub
    
42. 
    6 s7 t( v, W0 M, w0 P1 m9 ]7 K
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)
    ( |0 u; Y& T% a$ V/ u
46.     End Sub
    9 q& K3 I. X/ P: J7 a  X; J, j$ O. ?
47. 
    
48.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    
49.         End '結束程式
    
50.     End Sub
    
51. 
    . w2 c; w. f; p$ ^8 u
52.     Sub Reset()
    9 Y' G  H& [/ B+ a, }
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
    7 [( F5 V  e! X# R" O; b
57.         Button5.Left = (Width - Button5.Width) / 2 - 10
    6 L& b* o- {/ g5 P4 ^9 L! v* z
58.         Button6.Left = (Width - Button6.Width) / 2 - 10
    
59.         Button7.Left = (Width - Button7.Width) / 2 - 10
    ( Z& }# a/ f# A
60.         Button8.Left = (Width - Button8.Width) / 2 - 10
    
61.         Button1.Visible = True
    
62.         Button2.Visible = True
    2 i$ j& ~) N4 ~7 w
63.         Button3.Visible = True
    
64.         Button4.Visible = True
    6 r$ ^+ C$ n+ t/ h
65.         Button5.Visible = True
    8 |9 j2 k2 U6 w; c" Z+ K1 b0 s
66.         Button6.Visible = True
    ! v/ j7 E8 f; B5 F* a
67.         Button7.Visible = True
    
68.         Label1.Visible = False
    
69.         Button8.Visible = False
    , [% t* ^" ]$ e7 F" `. e' b! L
70.     End Sub
    
71. 
    & |% C! Z0 P- E
72.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    
73.         Call Reset()
    . s0 _% _& o! k8 l, l. R8 t* Q
74.     End Sub
    ) f$ S4 w- E+ }; {
75. End Class
    2 b  r' Q0 @! ~

複製代碼

共收到 0 A幣

我要打賞

打賞榜

查看更多>>

暫無

捷足先登

暫無

捷足先登

暫無

捷足先登

暫無

----

暫無

----

暫無

----

暫無

----