vbs yi exe uzantili yapalim

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28824
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

vbs yi exe uzantili yapalim

Mesaj gönderen velociraptor » 05 Eki 2008, 16:44

Soru:
Uzantisi .vbs olan bir visualbasic script im var bunu exe dosyasi haline nasil getirebilirim

Cevap:
Bir Visual basic projesi yaratin ve form a asagidakini ilave edin (load yada buton ile calisabilir)

Kod: Tümünü seç

 strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    strWQL = "SELECT * FROM __InstanceModificationEvent " & _
             "WITHIN 5 " & _
             "WHERE TargetInstance ISA 'Win32_Processor' " & _
             "AND TargetInstance.DeviceID='CPU0' " & _
             "AND TargetInstance.LoadPercentage > 3"

    Set objSWbemEventSource = objWMIService.ExecQuery(strWQL)

    For Each objItem In objSWbemEventSource
        Set oShell = CreateObject("WScript.Shell")
   
        sNode = "192.168.0.2" ' IP address or computer name
   
        ' Chr(20) vill create a new line in the messenger service dialog box
        sMsg = "An important security update is now installed on your computer." _
        & Chr(20) & Chr(20) _
        & "Please reboot the computer immediately to let it take effect!"
   
        oShell.Run "net.exe send " & sNode & " """ & sMsg & """", 0, False
        WScript.Echo "Load Percentage on CPU0 exceeded 3%."
       
        Set objWMIService = Nothing
        Set oShell = Nothing
    Next
Not: icerigi kendinize göre düzenlemeniz gerekir
Ceviri: velociraptor (denemedim)
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free



Cevapla