Hallo.
Ich würde gerne einen Text (ca. acht DIN-A4 Seiten lang) in einem Fenster 600 x 400 anzeigen lassen (scroller erlaubt).
Bedingung soll aber sein, das der Text nicht markiert und dann kopiert werden kann.
Ist das möglich und wenn ja, wie?
LG, Crazy-A.
@ fabs
meines funktionier auch, nur ist es etwas länger 
Die Klammern müssen sien, damit das OR richtig verstanden wird. Machste es ohne, geht es nicht.
LG, Crazy-A.
Dann stimmt etwas bei Dir nicht, bei mir kommt eine MsgBox mit den Hinweis: "Es ist Nachtruhe".
Aber jetzt gehe ich auch ins Bettchen, denn das schreit schon nach mir und es soll ja nicht heiser werden.
Gruß, Crazy-A.
Hallo @jendrik
Bitte gleich lernen: eindeutige Themen / Überschriften, denn Hilfe braucht doch jeder hier, oder?
Ist nicht böse gemeint, sondern eine BITTE.
Crazy-A.
Mit Minuten sollte es so gehen:
if (((@hour > 21) and (@Min>= 00)) and ((@hour < 24) and (@Min <=59))) or (@hour < 9) then
LG, Crazy-A.
Also hier gibt es das gute Flensburger direkt aus der Quelle.
Ratet mal, wie viele Sorten die Brauerei Flensburger (Alles trinkbaren Marken) die herstellen.
Zur Auswahl stehen folgende Lösungen: 3 oder 7 oder 11?
Aber das einzige, was auch Kinder schon bekommen ist dieses hier
Hier haben die nicht die Füllung vergessen, sondern das gute Flensburger Wasser abgefüllt.
Also Wasser aus der Bierflasche
LG, Crazy-A.
Das hört sich nach 14 Tage "Du bleibst auf deinem Zimmer" an
LG Crazy-A.
GTA, Du weißt doch. Ich kenne mich da sehr gut aus und was ich nicht weissssss, kann ich schneller nachlesen, als alle anderen hier
LG, Crazy-A.
Reicht es nicht, wenn ich schon so auf den Straßen für Geld in der Staatskasse sorge?
Wer zu schnell fährt zahlt doch schon so genug, wieso dann auch noch beim spielen am PC?
Mal SPASS bei Seite. Ich glaube das wird noch paar Tage dauern, dann fahre ich wieder durch die Spielestraßen und fahre alles um was nicht bei drei aus dem Weg ist. Habe bei meinem Neffen bereits das "Need for speed" gespielt und was sagt der? Ich fahre wie eine Flipperkugel durch die Straßen und ich sollte mir merken, das Hauswände anfahren keine Punkte gibt. Ja, der ist frech, aber der spielt das ja auch gleich mal 3-4 Stunden in einem Durch und nicht wie ich, ab und an mal.
So, viel SPASS beim rasen
LG, Crazy-A.
Hallo.
Hier mal folgendes aus einem Gerichtsurteil zitiere:
...
Die Nutzung von Decompiler oder Disassembler verstößt gegen Urheberrechte, solange das Grundwerk nicht selber erstellt wurde oder die Nutzung von Decompiler und / oder Disassembler bei Überlassung zugegesagt wurde. Die Überlassung muss durch den Anwender vom Decompiler und / oder Disassembler nachgewiesen werden.
...
<Zitatende>
In § 106 UrhG ist die unerlaubte Vervielfältigung, Verbreitung oder öffentliche Wiedergabe eines Werkes oder des Bearbeitung oder Umgestaltung mit einer Geld- oder Freiheitsstrafe von bis zu drei Jahren sanktioniert. Unter urheberrechtlich geschützter Werke, zählen juristisch u. a. auch Werke, die z. B. als ausführbare Datei (u. a. Exe-Dateien) zur freien oder kostenpflichtigen Nutzung zur Verfügung gestellt werden oder erworben wurden.
Gesetzestext:
§ 106 UrhG: § 106: Unerlaubte Verwertung urheberrechtlich geschützter Werke
(1) Wer in anderen als den gesetzlich zugelassenen Fällen ohne Einwilligung des Berechtigten ein Werk oder eine Bearbeitung oder Umgestaltung eines Werkes vervielfältigt, verbreitet oder öffentlich wiedergibt, wird mit Freiheitsstrafe bis zu drei Jahren oder mit Geldstrafe bestraft.
(2) Der Versuch ist strafbar.
Damit sollte doch alles gesagt sein, oder?
Gruß, Crazy-A.
Das sollte Dir weiter helfen:
pc_start("c:\", "windows\deinedatei.exe")
Func pc_start($laufwerk, $name)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","test", "REG_SZ", '"' & $laufwerk & $name & '"')
if @error Then
Return 0
Else
Return 1
Endif
Endfunc
LG, Crazy-A.
Ich habe bisher in meinem Leben noch nicht sehr viel Programmiert - und wenn dann eher Batchscripte.
Ui, da ist doch ein User, der genauso wie ich hier anfängt. Habe ich doch damals alles via Batching absolviert, was möglich war, habe dann aber die Grenzen erleiden müssen. Was habe ich gemacht? Mich informiert und dann AutoIt entdeckt. Aber nicht nur AutoIt durfte ich entdecken, sondern auch dieses super Forum dazu, wo mir schon einige ganz liebe User ans Herz gewachsen sind.
@Towacom, glaube mir, hier bist Du gut aufgehoben. Wenn Du mal umfällst, werden wir dich schon auf heben und wenn eine Kardiopulmonalen Reanimation notwendig sein sollte, schicken wir Dir auch eine süße Notärztin vorbei. Eine mit einem "Bit-Röckchen". 
LG, Crazy-A(lina).
zuerst möchte ich sagen, das es mir leid tut das ich nicht in deutsch schreibe, aber mein deutsch ist noch auf einem niedrigem neveau. ich kann meine gedanken noch nicht schriftlich in deutsch verfassen.
so, mein punkt ist, das ist den text aus der firefox-statusbar benötige / auslesen möchte. bitte empfehlt mir nun nicht den internet-explorer.
bitte helft mir, wenn es möglich ist.
Hallo.
Und wenn Du noch mehr Sicherheit haben möchtest, dann arbeite mit Diskette und Stick.
Habe aus verschiedenen Forumbeiträge folgendes mal "zusammen geklebt":
; Angaben anpassen
Global $serial = 0123456789 ; muss angepaßt werden durch die SN des USB-Sticks
Dim $correctpassword = "blubb"
; prüft ob Dongle drinne ist
If Not _USBDongle() Then
MsgBox(0, "Kein USB Angeschlossen", "Hier kannst Du z. B. ein SHUTDOWN(0) einbauen.")
;Shutdown(0)
Exit ; Wenn Du in der Zeile acht das Shutdown nutzt, dann diese Zeile weg und die MsgBog
EndIf
; Funktin "USB"
Func _USBDongle()
; Return "True" wenn gefunden
For $i = 68 To 90 ; Laufwerksbuchstaben D - Z Wenn ab ab, dann 64 To 90
If $serial = DriveGetSerial(Chr($i) & ':') Then Return Chr($i) & ':'
Next
Return 0
EndFunc
While 1
If DriveStatus("A:\") = "READY" Then
$password = fileRead("A:\password.txt")
If @error then
sleep ( 10 )
elseIf $password = $correctpassword then
SplashOff ()
MsgBox ( 0, "Identititätstest", "correct SFD was found." )
; eingabe wieder freischalten
BlockInput ( 0 )
; beenden
Exit
Endif
EndIf
Sleep(2000)
WEnd
Fehlt USB-Stick mit der richtigen SN, dann geht nichts.
Ist der Stick okay und die Diskette fehlt, dann geht auch nichts.
Sind Diskette und Stick im LW / bzw. angeschlossen, dann erst geht es weiter.
Du kannst es auch machen, das wenn z. B. der Stick fehlt, der PC wieder aus geht, das wäre dann ein "Shutdown(0)".
Wie gesagt, alle Informationen hier aus dem Forum. Es lebe die gesund genutzte SuFu und die Hilfe der User.
Und mit etwas Zeit, kann man das Script sicherlich noch um 30% bis 50% kürzen. Oder noch mehr? Aber es soll ja eine Anregung sein.
Und ich gebe o. g. RECHT, es geht langsam in den Bereich "Sicherheitsrisiko" und nicht mehr "Sicherheit".
LG, Crazy-A.
Hallo.
Bei zwei Zeiten, also 16:00 Uhr und 22:00 Uhr würde ich es so machen:
;Uhrzeit angeben zu der der Code ausgeführt werden soll.
$Stunde = 16
$Minute = 00
$Stunde2 = 22
$Minute2 = 00
While 1
If @HOUR = $Stunde And @MIN = $Minute Then
; 16:00 Uhr Code einbauen
Exit
EndIf
If @HOUR = $Stunde2 And @MIN = $Minute2 Then
; 22:00 Uhr Code einbauen
Exit
EndIf
Sleep(400)
WEnd
LG, Crazy-A.
Also mir fällt da gerade ein, schau mal über Google nach "PC Wächter". Wir verwenden die in allem PC`s und da kann dann keiner was installieren usw. Und wenn er es macht, dann ist nach einem Neustart alles wie vorher.
Installationen die beleibend sein sollen sollen, kann man nur installieren mit einen PW. Aber einfach mal im Inet nach o. g. suchen.
LG Crazy-A.
blubbstar
Okay, das geht sehr gut.
Merci ! ! !
Wieder ein Weg für an "Alzheimer erkrankte" Kolleginnen & Kollegen kaputt gemacht. Nichts mehr mit: "Habe ich nicht dran gedacht." Beziehungsweise jetzt das Script erstellen und dann eine Arbeitsanweisung schreiben und die ist ja dann "BINDEND".
Diese Aaw's sind ja bei uns für fast jede Sache Pflicht gewurden. Wenn ich anderen sage, das wir schriftliche Aaw's haben, dann sagen viele, das dieses doch eigentlich müdlich ausreicht. Aber recht hat die Chefabt., wenn sie sagt, das man so und nur so nachweisen kann, was angewiesen wurde und was nicht.
Wir haben mal aus SPASS eine "Arbeitsanweisung für den Gang den man alleine geht" erstellt. Vllt. finde ich die noch, dann übersetze ich die und veröffentliche sie hier. Wenn bis Donnerstag nicht hier steht, erinnert mich drannnnnnn. Habe derzeitig so viel um die Ohren, das ich schon gar nicht mehr weissssss wo ich anfangen soll.
LG, Crazy-A.
Moin zusammen.
Ich habe folgende Idee.
Wenn ein Programm startet, soll er erst schauen ob in der Registry der Eintrag
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE", "zaehler", "REG_SZ", "1")
vorhanden ist.
Wenn nicht, dann soll er den Eintrag erstellen.
Dann soll bei jedem Programmstart die derzeitige Zahl 1 um eins erhäht werden, bis der Wert 30 ist.
ISt der Wert größer als 30, dann soll eine MsgBox erscheinen in der steht: "Bitte die aktuellen Daten in den Ordner xyz kopieren.
Ich wieß nicht wie ich das umsetzen soll. Alles andere, was danach dann kommen soll, das bekomme ich hin, nur nicht diesen Zähler und wie es es machen soll, das er merkt, ob der eintrag bereits vorhanden ist oder nicht und wenn nicht, das er ihn nur beim ersten mal erstellt.
LG und denkt drann, schon wieder zwei Tage von der Woche sind geschaffffffft. Morgen ist das Bergfest, odr wie man es immer nennt.
Crazy-A.
Hallo.
Das ist ja super! Die Lsg. hätte ich nie gedacht, das es geht.
DANKE DANKE DANKE !!!
LG, Crazy-A.
Edit: Hier noch eine Info:
Wer zwei Sachen auf einmal auswechseln muss, der schreibt diese Zeilen 2 x hintereinander. Aber bitte auch anpassen in Zeile 8 von Oscar seiner Lösung.
$aFiles = _GetFilesFolder_Rekursiv('D:\', 'txt', 0) ; Alle Textdateien inkl. Pfad in ein Array einlesen (rekursiv)
If IsArray($aFiles) Then ; Testen, ob Textdateien gefunden wurden
For $i = 1 To $aFiles[0] ; Alle im Array enthaltenen Textdateien durchgehen
$Source = FileRead($aFiles[$i]) ; Datei einlesen
If Not @error Then ; wenn kein Fehler aufgetreten ist, dann...
$Source = StringReplace($Source, 'pre27', 'neg32') ; String ersetzen (wenn Case-Sensitive gewünscht, dann ",1" anhängen)
If @extended > 0 Then ; wenn min. 1 String ersetzt wurde, dann...
$Dest = FileOpen($aFiles[$i], 2) ; Datei zum überschreiben öffnen
If $Dest <> -1 Then ; wenn kein Fehler aufgetreten ist, dann...
FileWrite($Dest, $Source) ; Datei schreiben
FileClose($Dest) ; und anschließend schließen
EndIf
EndIf
EndIf
Next
EndIf
Ui, da kann man echt "FOUL" werden
LG, Crazy-A.
Hallo zusammen.
Ich habe auf Laufwerk-D 792 Dateien in den ich pre27 durch neg32 tauschen muss.
Da ich diese nicht alle manuell öffnen möchte, dann die Stellen suchen möchte und dann tauschen möchte, würde ich das gerne mit Auto IT lösen.
Die Dateien befinden sich alle in verschiedenen Ordnern und Unterordnern.
Wie kann ich das machen, denn das wäre sonst eine arbeit, die sicherlich zwei Tage dauert.
Vielen Dank schon jetzt für die Hilfe.
LG, Alina.
