8 kwi 2009

Link na całego diva

<HTML>
 <HEAD>
  <TITLE> link na całego diva </TITLE>
 <style>
  
  .test {
   background-color:#ffe592;
   height: 30px;
   margin: 10px 0;
  }
  .test a {
   background-color:#ffe592;
   display:block; width:100%;
   height: 30px;
  }
  .test a:hover {
   background-color:#a6b6cc;
  }

</style>
 </HEAD>

<BODY>
 <div class="test"><a href="">link na całego diva 1</a></div>
 <div class="test"><a href="">link na całego diva 2</a></div>
 </BODY>
</HTML>
2 kwi 2009

Sprawdzenie u uruchamianie GG w Vbs

Dim fso, stream, str, re, name
Dim wsh, oExec

Set wsh   =  CreateObject("WScript.Shell")
Set oExec = wsh.Exec("cmd /c " & "tasklist | find " & Chr(34) & "gg.exe" & Chr(34))
wynik     = oExec.StdOut.ReadAll

'msgbox wynik

Dim valid
Set objRegEx = CreateObject("VBScript.RegExp")

valid = False
objRegEx.Pattern = "^gg.exe"
valid = objRegEx.test(wynik)

If valid = True Then
 ''MsgBox(wynik)
Else
    wsh.Run Chr(34) & "C:\\Program Files\\Gadu-Gadu\\gg.exe" & Chr(34)
    Set wsh = Nothing
End if