1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
| [code]
' Gambas class file
' Firefox n'est pas très pratique pour la création de raccourcis pour les pages web que l'on souhaite conserver.
' J'ai préférer construire des lanceurs pour cela, parce qu'ils sembles mieux acceptés par certaines barres de tâches.
' Les icônes s'ils ne sont pas disponibles sont remplacés par des icônes de remplacements
' Il suffit d'indiquer ligne 57 le chemin du dossier que vous avez créé et où vos icônes seront entreposés
' Pour l'utilisation il suffit de cliquer sur l'icone de raccourci de l'exe et puis sur la page web
' Et voilà, c'est tout !
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
DIM Ipos1 AS INTEGER
DIM Surl AS STRING
DIM Surl2 AS STRING
DIM Surl3 AS STRING
DIM SmonLanceur AS STRING
DIM imag1 AS Image
DIM imag2 AS Image
Clipboard.Clear()
WAIT 0.1
imag1 = NULL
WAIT 0.1
imag1 = Image.Load("orange.png") ' Ou une autre, un png de 32x32
WAIT 0.1
SHELL "xdotool selectwindow windowraise windowfocus" WAIT ' le colimateur
SHELL "xdotool key --delay 120 ctrl+l" WAIT
SHELL "xdotool key --delay 120 ctrl+c" WAIT
SHELL "xdotool key --delay 120 ctrl+g" WAIT
Surl = Clipboard.Paste() 'recupere le presse papier
WAIT
Surl = Trim(Surl)
Surl3 = Surl
IF InStr(Surl, "http://www.") THEN ' extraction du nom de domaine
Surl = Mid(Surl, InStr(Surl, "http://www.") + 11, Len(Surl))
ELSE IF InStr(Surl, "https://www.") THEN
Surl = Mid(Surl, InStr(Surl, "https://www.") + 12, Len(Surl))
ELSE IF InStr(Surl, "www.") THEN
Surl = Mid(Surl, InStr(Surl, "www.") + 4, Len(Surl))
ELSE IF InStr(Surl, "http://") THEN
Surl = Mid(Surl, InStr(Surl, "http://") + 7, Len(Surl))
ELSE IF InStr(Surl, "https://") THEN
Surl = Mid(Surl, InStr(Surl, "https://") + 8, Len(Surl))
ELSE
Message.Error("Ceci n'est pas une page web")
QUIT
ENDIF
Surl2 = Replace(Surl, "/", "|")
Ipos1 = InStr(Surl, "/")
IF Ipos1 > 0 THEN Surl = Left(Surl, Ipos1 - 1)
SHELL "wget http://www.google.com/s2/favicons?domain=" & Surl & " -P/" & User.Home & "/Images/Raccoucisweb" WAIT ' recup icone site
IF NOT Exist(User.Home & "/Images/Raccoucisweb/" & Replace(Surl, ".", "") & ".png") THEN ' si un icone existe déjà
IF Exist(User.Home & "/Images/Raccoucisweb/favicons?domain=" & Surl) THEN
imag2 = Image.Load(User.Home & "/Images/Raccoucisweb/favicons?domain=" & Surl)
WAIT 0.1
END IF
WITH Paint ' création de l'image de l'icone 'Merci vuott
.Begin(imag1)
.DrawImage(imag2, 8, 8, 16, 16)
.End
END WITH
WAIT 0.1
imag1.Save(User.Home & "/Images/Raccoucisweb/" & Replace(Surl, ".", "") & ".png")
WAIT 0.1
END IF
KILL User.Home & "/Images/Raccoucisweb/favicons?domain=" & Surl ' 'couic' le temporaire
WAIT 0.1
IF Exist(User.Home & "/Bureau/" & Surl2 & ".desktop") THEN
Message.Info("Le raccourci existe déjà !"
QUIT
ENDIF
Creation: ' création du lanceur
SmonLanceur = "[Desktop Entry]\r\n" &
"Comment=\r\n" &
"Terminal=False\r\n" &
"Name=" & Surl2 & "\r\n" &
"Exec=firefox " & Surl3 & "\r\n"
"Type=Application" & "\r\n" &
"Icon=" & User.Home & "/Images/Raccoucisweb/" & Replace(Surl, ".", "") & ".png"
File.Save(User.Home & "/Bureau/" & Surl2 & ".desktop", SmonLanceur)
WAIT 0.1
CHMOD User.Home & "/Bureau/" & Surl2 & ".desktop" TO "rwxr-xr-x"
WAIT 0.1
Message.Info("Le raccourci est crée !"
QUIT
END
[/code]
|