ผู้เขียน หัวข้อ: เขียนโปรแกรมโยงเข้าเซิฟเวอร์ ต้องมี VPS แรงและถูกโปรแกรมจะได้เสถียนยิ่งขึ้นนะคับ  (อ่าน 780 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

preak.mark

  • บุคคลทั่วไป

ลิ้งดาวห์โหลด โปรเจค
http://goo.gl/KyY8G0
ลิ้งโหลดโปรแกรม
http://goo.gl/aGLK8h
ใช้
Textbox 1อัน
Button 1 อัน

เพิ่ม

โค๊ด: [Select]
Imports System.Net
Imports System.IO
CODE Button
โค๊ด: [Select]
Using client As WebClient = New WebClient
            Dim A As String = New StreamReader(client.OpenRead("http://ไอพีVPSที่เช่ามา/shdd.txt")).ReadToEnd
            If (Me.TextBox1.Text = A) Then
                Me.Hide()
                Interaction.MsgBox("Serialของคุณมีอยู่ในระบบ ยินดีต้อนรับครับ!!", MsgBoxStyle.Information, "Server")
                Form2.Show()
            ElseIf (Me.TextBox1.Text = "") Then
                Me.Hide()
            Else

                MsgBox("Serialของคุณไม่มีอยู่ในระบบ กรุณาติดต่อแอดมิน หรือทางข้อความแฟนเพจ!!!", MsgBoxStyle.Critical, " ")
                Me.Hide()
            End If
        End Using
    End Sub

form1
โค๊ด: [Select]
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim GetDriveSerialNumber, SerialHDD As String
        Dim DriveSerial As Long
        Dim fso As Object, Drv As Object
        fso = CreateObject("Scripting.FileSystemObject")
        Drv = fso.GetDrive(fso.GetDriveName(AppDomain.CurrentDomain.BaseDirectory))
        With Drv
            If .IsReady Then
                DriveSerial = .SerialNumber
            Else
                DriveSerial = 1
            End If
        End With
        Drv = Nothing
        fso = Nothing
        GetDriveSerialNumber = Hex(DriveSerial)
        SerialHDD = Hex(DriveSerial)
        TextBox1.Text = SerialHDD

    End Sub

และสามารถทำautoอัพเดทได้อีกด้วยนะครับ สนใจติดต่อเช่าVPSเพื่อทำโปรแกรมเจ๋งๆ และเซิฟเวอร์แชทต่างๆ ได่ที่

Colo Minecraft : http://www.colo-minecraft.com/th
VPS อื่นๆเกี่ยวกับเซิฟเวอร์Windows,Linux : http://www.vpshispeed.com/th

Phuwanai Lorprakon

  • บุคคลทั่วไป
มันให้ใส่อะไรก็ไม่รู้อะ ??????