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, 2557 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
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Apache Server
Anzeige der falschen Website Apache2 vHotsts (3)

Frage von m.reeger zum Thema Apache Server ...

E-Mail
gelöst GMail: Anzeige der Mailübersicht ändern (7)

Frage von honeybee zum Thema E-Mail ...

RedHat, CentOS, Fedora
gelöst Die Website hat die Anzeige dieser Webseite abgelehnt - SePolicies - Linux (1)

Frage von rainergugus zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...