Newsgroup: it.comp.aiuto
Titolo: Eliminare apertura link

Sapete indicarmi un software che annulli l'apertura automatica di pagine web
grazie
max

 Sapete indicarmi un software che annulli l'apertura
automatica di pagine web
Mi pare "popup killer". Cerca on google.
--
Dany Keisler

"Max"
Copia incolla su notepad e salva con estensione .vbs
tutti i file (*.*)  poi ci clicchi sopra. (per esempio PopUpKiller.vbs)
Ti verra creato un file txt con lo stesso nome del vbs
aprilo e linea per linea mettici i link indesiderati
Resta in background, per disattivarlo control+alt+canc e killare
Wscript
PopUpKiller.vbs
'INIZIO
Dim gstrDataFile
Dim strEngine
gstrDataFile = FileNameLikeMine("txt")
If Not
CreateObject("Scripting.FileSystemObject").FileExists(gstrDataFile) Then
    String2File "----- Title Data File -----" & vbCrLf &
"www.quellochevuoi" & vbCrLf & "about:blank" & vbCrLf, gstrDataFile
    strEngine = Wscript.FullName
    strEngine = Mid(strEngine, InstRrev(strEngine, "\") + 1)
    strEngine = Left(strEngine, Instr(strEngine, ".") - 1)
    strEngine = Ucase(Left(strEngine, 1)) & Lcase(Mid(strEngine, 2))
    MsgBox "Questo script  restera attivo fino allo spegnimento di
windows o colTask Manager (Ctrl-Alt-Del)."
End If
While True
    KillWindows
    Wscript.Sleep 500
Wend
Sub KillWindows
Dim wsh 'As WScript.Shell
Dim fs 'As Scripting.FileSystemObject
Dim ts 'As Scripting.TextStream
Dim strData 'As String -- Entire contents of gstrDataFile
Dim strTitle 'As String -- Just one bad window title
Const ForReading = 1
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set wsh = CreateObject("WScript.Shell")
    On Error Resume Next
    Err.Clear
    Set ts = fs.OpenTextFile(gstrDataFile, ForReading, True)
    If Err.Number = 0 Then
        strData = ts.ReadAll
        If Err.Number = 0 Then
            'Read all title lines in data string
            Do Until (Instr(strData, vbCrLf) = 0)
                strTitle = Left(strData, Instr(strData, vbCrLf) - 1)
                strData = Mid(strData, Instr(strData, vbCrLf) + 2)
                If strTitle <> "" Then
                    If wsh.AppActivate(strTitle) Then
                        wsh.SendKeys "%{F4}"
                        WriteLog Now & " " & strTitle
                    End If
                End If
            Loop
            'Grab last bit in case there was no ending CrLf
            strTitle = strData
            If strTitle <> "" Then
                If wsh.AppActivate(strTitle) Then
                    wsh.SendKeys "%{F4}"
                    WriteLog Now & " " & strTitle
                End If
            End If
        Else
            ts.Close
            Wscript.Quit 1
        End If
    Else
        Wscript.Quit 1
    End If
    ts.Close
End Sub
Sub WriteLog(strText)
Dim fs
Dim ts
Const ForAppending = 8
    If Lcase(Right(Wscript.FullName, 11)) = "cscript.exe" Then
        Wscript.Echo strText
    Else
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set ts = fs.OpenTextFile(Left(Wscript.ScriptFullName,
InstrRev(Wscript.ScriptFullName, ".")) & "log", ForAppending, True)
        ts.WriteLine strText
        ts.Close
    End If
End Sub
Function FileNameLikeMine(strFileExtension) 'As String
'Returns a file name the same as the script name except
'for the file extension.
Dim fs 'As Object
Dim strExtension 'As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    strExtension = strFileExtension
    If Len(strExtension) < 1 Then strExtension = "txt"
    If strExtension = "." Then strExtension = "txt"
    If Left(strExtension,1) = "." Then strExtension = Mid(strExtension,
2)
    FileNameLikeMine = Left(Wscript.ScriptFullName,
InstrRev(Wscript.ScriptFullName, ".")) & strExtension
End Function
Sub String2File(strData, strFileName)
'Writes a string to a file
Dim fs 'As Scripting.FileSystemObject
Dim ts 'As Scripting.TextStream
Const ForWriting = 2
    Set fs = Wscript.CreateObject("Scripting.FileSystemObject")
    Set ts = fs.OpenTextFile(strFileName, ForWriting, True)
    ts.Write(strData)
    ts.Close
End Sub
'Fine

"Fosco"
Per problemi di "wrappamento" linee di OE lo script non
funziona .
Per risolvere aprire notepad massimizzato e mettere le sottostanti
tutto su riga ( anche se non ci stanno notepad le vede tutte su 1)
1)
If Not
CreateObject("Scripting.FileSystemObject").FileExists(gstrDataFile) Then
2)
 String2File "----- Title Data File -----" & vbCrLf &"www.quellochevuoi"
& vbCrLf & "about:blank" & vbCrLf, gstrDataFile
3)
MsgBox "Questo script  restera attivo fino allo spegnimento di windows o
colTask Manager (Ctrl-Alt-Del)."
4)
 Set ts =
fs.OpenTextFile(Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullN
ame, ".")) & "log", ForAppending, True)
5)
 If Left(strExtension,1) = "." Then strExtension = Mid(strExtension,2)
6)
 FileNameLikeMine
=Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) &
strExtension
--
Fosco