php random_float

function random_float ($min,$max) {
   return ($min+lcg_value()*(abs($max-$min)));
}

that's easy but can't figure out

Disable your site from Greasemonkey !!!

I've found this by an accident!!!

 document._createElement = document.createElement;
 document.createElement = function(tagName, password) {
    if (tagName != "SCRIPT" || password == "My scripts are OK!") {
        return document._createElement(tagName);
    }
 };

just that and your site will be protected

Importing Multiple Files to a Single Workbook

press alt+F8 in excel
or Tools -> Macro -> Macros
Macro name : CombineTextFiles
Create
Sub CombineTextFiles() Dim FilesToOpen Dim x As Integer Dim wkbAll As Workbook Dim wkbTemp As Workbook Dim sDelimiter As String On Error GoTo ErrHandler Application.ScreenUpdating = False sDelimiter = "|" FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Text Files (*.txt), *.txt", _ MultiSelect:=True, Title:="Text Files to Open") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "No Files were selected" GoTo ExitHandler End If x = 1 Set wkbTemp = Workbooks.Open(FileName:=FilesToOpen(x)) wkbTemp.Sheets(1).Copy Set wkbAll = ActiveWorkbook wkbTemp.Close (False) wkbAll.Worksheets(x).Columns("A:A").TextToColumns _ Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=False, Semicolon:=False, _ Comma:=False, Space:=False, _ Other:=True, OtherChar:="|" x = x + 1 While x <= UBound(FilesToOpen) Set wkbTemp = Workbooks.Open(FileName:=FilesToOpen(x)) With wkbAll wkbTemp.Sheets(1).Move After:=.Sheets(.Sheets.Count) .Worksheets(x).Columns("A:A").TextToColumns _ Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=False, Semicolon:=False, _ Comma:=False, Space:=False, _ Other:=True, OtherChar:=sDelimiter End With x = x + 1 Wend ExitHandler: Application.ScreenUpdating = True Set wkbAll = Nothing Set wkbTemp = Nothing Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub
then save and goto excel and insert button from form for macro
then choose CombineTextFiles
after press button you can select files to import to excel refer: http://excel.tips.net
http://support.microsoft.com/kb/141689

stuck at runonce with IE7

easily and simple direction
file:disable runonce.reg Windows Registry Editor Version 5.00 [HKCU\Software\Microsoft\Internet Explorer\Main] "RunOnceComplete"=dword:00000001 "RunOnceHasShown"=dword:00000001 and just run it OR
file:disable runonce.bat REG ADD "HKCU\Software\Microsoft\Internet Explorer\Main" /V "RunOnceComplete" /T REG_DWORD /D 1 /F REG ADD "HKCU\Software\Microsoft\Internet Explorer\Main" /V "RunOnceHasShown" /T REG_DWORD /D 1 /F

javascript to show and hide element

for html you need to define ID name of an element

<input type="button" name="clickme1" id="clickme1" value="Click me !!" onclick="JavaScript:showbutton('clickme2')"><BR>
<input type="button" name="clickme2" id="clickme2" value="Click me !!" onclick="JavaScript:showbutton('clickme1')" style="visibility:hidden">

For javascript need this code

function showbutton(idName){
 Element = document.getElementById('clickme2');
 Element.disabled=true;
 Element.style.visibility = "hidden";
 Element = document.getElementById('clickme1');
 Element.disabled=true;
 Element.style.visibility = "hidden";
 clickme1Element = document.getElementById(idName);
 clickme1Element.disabled=false;
 clickme1Element.style.visibility = "visible";
}