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, 2572 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
Off Topic

"Ich habe nichts zu verbergen"

(1)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Exchange Server
Server2016 Download llink (26)

Frage von blade999 zum Thema Exchange Server ...

LAN, WAN, Wireless
gelöst Verwirrung bzgl. 802.11n und ac (Anzeige Netzwerk) (4)

Frage von Hellgore zum Thema LAN, WAN, Wireless ...

Windows Server
Anzeige bei "run logon scripts synchronously" möglich?

Frage von ahstax zum Thema Windows Server ...

Heiß diskutierte Inhalte
Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (41)

Frage von Winuser zum Thema Hyper-V ...

Linux Netzwerk
gelöst DHCP vergibt keine Adressen (30)

Frage von Maik82 zum Thema Linux Netzwerk ...

Exchange Server
gelöst Bestehende eMails autoamatisch weiterleiten (22)

Frage von metal-shot zum Thema Exchange Server ...

Apache Server
gelöst Lets Encrypt SSL mit Apache2 (20)

Frage von banane31 zum Thema Apache Server ...