Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Download ohne Anzeige

Frage Entwicklung Batch & Shell

Mitglied: charmeur

charmeur (Level 1) - Jetzt verbinden

01.08.2011, aktualisiert 21:31 Uhr, 2569 Aufrufe, 4 Kommentare

hallo ihr ich habe dank euch dieses script gebastelt
nun habe ich noch zwei sachen die eigentlich super wären aber leider habe ich nichts passendes gefunden
und zwar wird beim Download der Datei ein kleines Fenster mit der Adresse angezeigt kann man das unterdrücken ?

und kann man das Script zwingen bei jeder ausführung die daten neu zu laden und nicht aus dem Temp zu holen
es wäre klasse wenn mir jemand helfen könnte

01.
 
02.
Dim txt 'As String 
03.
Dim txt1 'As String 
04.
Dim txt2 'As String  
05.
 
06.
Dim txt3 'As String 
07.
txt2 = DownloadString("http://tspo...info.txt")  
08.
txt3 = DownloadString("http://tspoi.....Info.txt")  
09.
 
10.
If not txt2 = "" Then  
11.
MsgBox txt2  
12.
End If  
13.
 
14.
 
15.
Const xlToRight = -4161 
16.
 
17.
Set oXL = WScript.CreateObject("EXCEL.application") 
18.
With oXL 
19.
.Visible = False 
20.
.Workbooks.Open ("http://tspo.....o.xlsx")  
21.
 
22.
txt = .Worksheets(1).Range("B13").Value 
23.
txt1 = .Worksheets(1).Range("B11").Value 
24.
.ActiveWorkbook.Close False 
25.
.Application.Quit 
26.
End With 
27.
MsgBox "Hallo " & txt1 & vbNewLine & txt  & vbNewLine  & vbNewLine & time & vbNewLine & txt3 
28.
 
29.
 
30.
Public Function DownloadString(ByVal URL) 'As String  
31.
Dim WebReq 'As MsXml2.XmlHttp  
32.
Dim FSO 'As Scripting.FileSystemObject  
33.
Set WebReq = CreateObject("MsXml2.XmlHttp.3.0")  
34.
Set FSO = CreateObject("Scripting.FileSystemObject")  
35.
WebReq.Open "get", URL, False  
36.
WebReq.Send  
37.
DownloadString = WebReq.ResponseText  
38.
End Function 
39.
 
Mitglied: bastla
01.08.2011 um 21:36 Uhr
Hallo charmeur!

Zur Frage 1: Ändert sich etwas, wenn Du Zeile 33 durch
Set WebReq = CreateObject("WinHttp.WinHttpRequest.5.1")
ersetzt?

Grüße
bastla

P.S.: Es fehlen immer noch "Option Explicit" und "Dim oXL" ...
Bitte warten ..
Mitglied: charmeur
01.08.2011 um 21:59 Uhr
also zu
01.
Set WebReq = CreateObject("WinHttp.WinHttpRequest.5.1")
komt das Download Fenster immer noch

und zu zweitens hmmm..................
weiss ich leider nicht genau wo ich das hin machen soll
Bitte warten ..
Mitglied: bastla
01.08.2011 um 22:04 Uhr
Hallo charmeur!
weiss ich leider nicht genau wo ich das hin machen soll
Option Explicit
an den Anfang des Scripts und
Dim oXL
nach Wunsch (solange es vor der Zeile 17 ist ) ...

Grüße
bastla
Bitte warten ..
Mitglied: charmeur
01.08.2011 um 22:09 Uhr
ok vielen lieben dank
also das Downloadfenster kommt zwar, aber nur noch für kurze zeit.
zu not kann ich das so lassen
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows 10
gelöst EventLog häufige Anzeige, was bedeutet diese? (5)

Frage von M.Marz zum Thema Windows 10 ...

Firewall
Download nur nach Authorisierung erlauben (7)

Frage von tobitobsn zum Thema Firewall ...

Windows Server
Windows Server 2012 R2 und Anzeige der DHCP-Workstations (7)

Frage von MaxMoritz6 zum Thema Windows Server ...

Outlook & Mail
gelöst Keine Anzeige von Netzlaufwerken in Outlook (4)

Frage von Speedflo zum Thema Outlook & Mail ...

Heiß diskutierte Inhalte
Hardware
Laptop ins Salzwasser gefallen (18)

Frage von Marcel94 zum Thema Hardware ...

Switche und Hubs
LAG zwischen Cisco SG300 und Dlink DGS1100 herstellen - wie? (13)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...

Hardware
Lenovo Yoga 500 über angeschlossene USB Tastatur booten (13)

Frage von thomasreischer zum Thema Hardware ...

CPU, RAM, Mainboards
Hardware Fragen (12)

Frage von xaver-2 zum Thema CPU, RAM, Mainboards ...