Early Xmas Surprise - Let your laptop speak as Sheldon's!!

.... Basic requirement for hardware: PC System (Sorry for Mac fans!!) Baisc requirement for software: Windows XP/ Windows Vista/ Windows 7 [Step 1] Open up "Notepad" [Step 2] Paste following command CreateObject("SAPI.SpVoice").Speak "Merry Christmas" ** Tip ** You can reply any word instead of "Merry Christmas" but all the initial alphabet of each word has to be CAPITAL. [Step 3] Save ...

Early Xmas Surprise - Let your laptop speak as Sheldon's!!

.... Basic requirement for hardware: PC System (Sorry for Mac fans!!) Baisc requirement for software: Windows XP/ Windows Vista/ Windows 7 [Step 1] Open up "Notepad" [Step 2] Paste following command CreateObject("SAPI.SpVoice").Speak "Merry Christmas" ** Tip ** You can reply any word instead of "Merry Christmas" but all the initial alphabet of each word has to be CAPITAL. [Step 3] Save ...

Disco keyboard

Heee. Copy and paste this code into a vbs file: Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{SCROLLLOCK}" loop Watch your num/caps and scroll lock. Hehehehhe. (To stop end task wscript)

... Dim wdSheet As Worksheet Dim rnTable As Range Set wdSource = ActiveWorkbook Set wdSheet = wdSource.Worksheets(1) With wdSheet Set rnTable = .Range("ReportChart") End With Set wdApp = CreateObject("Word.Application.11") Set wdDoc = wdApp.Documents.Open(ReportPath) Set wdRange = wdDoc.Bookmarks("Report1").Range With wdDoc.InLineShapes(1) .Select .Delete End With Application.ScreenUpdating =...

Google hack`s requests

...ext:ini eudora.ini ext:ini Version=4.0.0.4 password ext:passwd -intext:the -sample -example ext:txt inurl:unattend.txt ext:yml database inurl:config filetype:bak createobject sa filetype:bak inurl:”htaccess|passwd|shadow|htusers” filetype:cfg mrtg “target filetype:cfm “cfapplication name” password filetype:conf oekakibbs filetype:conf slapd.conf filetype:config config intext:appSettings...

Google hacking requests

...=? ext:ini eudora.ini ext:ini Version=4.0.0.4 password ext:passwd -intext:the -sample -example ext:txt inurl:unattend.txt ext:yml database inurl:config filetype:bak createobject sa filetype:bak inurl:?htaccess|passwd|shadow|htusers? filetype:cfg mrtg ?target filetype:cfm ?cfapplication name? password filetype:conf oekakibbs filetype:conf slapd.conf filetype:config config intext:appSettings ?User ...

NSMutableArray + NSString

...@property ( assign ) NSString *projectName; @property ( assign ) NSString *projectStatus; @property int fullTime;   @end //Создание объекта класса - ( IBAction ) createObject: ( id )sender   { project *aProject = [[ project alloc ] init ]; aProject. fullTime = [ timeField intValue ]; aProject. projectName = [ nameField stringValue ]; aProject. ...

Vbs запрос к MS SQL

... GDAIS(strCPU)         Const adOpenStatic = 3         Const adLockOptimistic = 3                  Set objConnection = CreateObject("ADODB.Connection")         Set objRecordSet = CreateObject("ADODB.Recordset")          '         objConnection.Open _ '              "Provider=SQLOLEDB;Data Source=MeServerName;" & _ '                 "Persist Security ...

Vbs запрос к Oracle

Dim objConnection, objRecordset Set objConnection = CreateObject("ADODB.Connection") strConnString = "Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=S ERVERNAME)(PORT...=TEST)));uid=username;pwd=passw ord;" objConnection.open strConnString Set objRecordset = CreateObject("ADODB.Recordset") Set objRecordset = objConnection.Execute ("SELECT enabled_ind FROM DB_RELEASE") objConnection.Close...

Vbs подпись Outlook

... Verify, WhatYouWantToCallIT, LastRun Set WshShell = CreateObject("Wscript.Shell")   varToday = WhatYouWantToCallIT Verify ...Error GoTo 0 '============================================================================= Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set...strPhone = objUser.telephoneNumber Set objWord = CreateObject("Word.Application") Set objDoc = objWord...