<%@ Page Language=VB Debug=true %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) Dim BCaps As HttpBrowserCapabilities BCaps = Request.Browser lblMessage.Text = "Supports ActiveX Controls: " _ [...]
|
|||||
 |
This example utilises tinyurl to create a short url
<?php /* gets a short url from tinyurl service */ function tinyurl($url) { $ch = curl_init(); $timeout = 5; curl_setopt($ch,CURLOPT_URL,’http://tinyurl.com/api-create.php?url=’.$url); curl_setopt($ch,CURLOPT_RETURNTRANSFER,1); curl_setopt($ch,CURLOPT_CONNECTTIMEOUT,$timeout); $data = curl_exec($ch); curl_close($ch); //return the [...]
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Keyboard",,48) For Each objItem in colItems Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Layout: " & objItem.Layout Next Bookmark It Hide Sites $$(‘div.d206′).each( [...] This example gets some basic operating system information and saves in a file, shows FSO and some basic WMI usage.
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("F:\vbscript\os.txt") strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Select * from [...] #include void main(void) // Try reading head 1, track 1, sector 1 Bookmark It Hide Sites $$(‘div.d181′).each( function(e) { e.visualEffect(’slide_up’,{duration:0.5}) }); |
 |
|||
|
Copyright © 2010 Progged programming site - All Rights Reserved |
|||||
